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APPENDIX  A  - 

ORGANIZATION  OF  THE  DIRECT  ACCESS  EXPERIMENTAL  DATA  FILES  ' 


The  first  record  of  each  file  contains  one  integer  variable  (NREC) 
followed  by  up  to  196  alphanumeric  characters.  This  record  is  formatted 
1I4.196A1.  The  variable,  NREC,  contains  the  number  of  discrete  experimental 
times  that  follow  in  records  2  through  NREC+1.  Each  of  these  experimental 
records  has  29  data  points  associated  with  it.  They  are  stored  in  array  EXP 
and  are  read  in  by  the  format  13F8.2,15F6.2,F6.1.  The  first  variable,  EXP(l), 
contains  the  experimental  times;  EXP(2)  thru  EXP( 13)  contain  rates  of  heat 
flow  from  sites  1  to  12;  variables  EXP(14)  thru  EXP(25)  contain  temperatures  i 
from  sites  1  to  12;  variable  EXP(26)  is  the  rectal  temperature;  EXP(27)  is  the  ' 

i 

ambient  temperature;  variable  EXP(28)  is  the  Hody  mean  skin  temperature,  which 
is  calculated  by  using  the  twelve  experimental  temperatures  found  in  EXP(14) 
to  EXP(25);  and  EXP( 29)  contains  the  Hody  mean  skin  rate  of  heat  flow,  which 
Is  computed  by  using  the  twelve  experimental  rates  of  heat  flow  contained  in 
EXP(2)  to  EXP(13).  The  variable  names  appearing  above  correspond  to  the 
actual  names  used  in  the  Interactive  program.  The  sites  referred  to  as  1  to 

j 

12,  above,  correspond  to  the  segments  Identified  in  Figure  2  and  Table  1  of 
Chapter  I. 
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The  name  given  to  an  experimental  data  file  Is  totally  up  to  the  user. 

It  Is  -ssumed  that  the  user  Is  knowledgeable  enough  of  the  file  structure  and 
naming  conventions  prescribed  by  the  computer's  operating  system  that  the  file 
names  will  not  be  In  violation  of  these  conventions.  The  conventions  which 
apply  to  the  RSX-11M  system  can  be  found  In  Chapter  1  of  reference  52. 
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APPENDIX  B 

COMPOSITE  DATA  FILE  LISTINGS  FOR  FILES 
RHL1AR1,  DTP1ART,  DTP2AR1,  AND  DTP3AR1 


Each  composite  data  file  has  temperature  and  rate  of  heat  loss  data 
listed  for  the  Head  (HEAD),  Chest  (CHST),  Abdomen  (ABD),  Upper  Back  (UBAC), 
j  Lower  Back  (LBAC),  Arm  (ARM),  Hand  (WRST),  Front  Thigh  (F-TH), 

Front  Calf  (FCLF),  Rear  Thigh  (R-TH),  Rear  Calf  (RCLF),  and  Foot  (FOOT) 
segments.  The  composite  segmental  temperature  listings  also  contain  the 
Rectal  (RECT)  and  Ambient  (AMB)  temperatures.  All  temperatures  are  In  °C  and 
the  rates  of  heat  loss  are  in  watts.  The  composite  data  file  surface  areas 
are  2.04  M2,  1.91  M2,  2.017  M2  and  1.99M2;  and  the  number  of  component 
subjects  are  5,  4,  3,  and  3;  for  RHL1AR1,  DTP1ART,  DTP2AR1,  and  DTP3AR1  data 
files,  respectively.  The  composite  surface  areas  were  determined  by  averaging 
the  component  subject's  surface  areas.  These  files  are  listed  In 
Tables  B.1.A-B.4.B  as  described  below. 

Table  Number  Contents 


B.l.A 

B.l.B 

B.2.A 

B.2.B 

B.3.A 

B.3.B 

B.4.A 

B.4.B 


RHL1AR1,  Temperatures 
RHL1AR1,  Rates  of  Heat  Loss 
DTP1ART,  Temperatures 
DTP 1 ART,  Rates  of  Heat  Loss 
DTP2AR1,  Tempt  atures 
DTP2AR1 ,  Rates  of  Heat  Loss 
DTP3AR1,  Temperatures 
DTP3AR1 ,  Rates  of  Heat  Loss 
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(Table  B.l.A,  continued) 
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(Table  B.l.A,  continued) 
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e  B.l.B,  continued) 
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♦  mb.o«rnttNciiw*rib«bri(,><eb(>i'b«rbbb**<r.bb  —  *sn«(i4i4irin4;4;ii  -on  «  b 
NNnNNnnnNNNNNniOINNNNNNNNNNNNNNNIlKIINNNNNNNNnNNNNNN 
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BB)4IM14—  44  —  NORWOfr—  OWNfrN— fr^NBNOttH>48n-4ft(h^llft-NNBn 

N^gjN(i4444NNN4SK4NSI>«(i4444«44NSnn4inn444l>4n<l44lin(i 


x-t)N4B4N4g-4NN4nn4nBDnnnonB'i>oiKiin4-B*onn4'rNnnB4D'n 

anonraaia«-o--no-NninNNNVN-n5K«nna)-No-ONai<rKonnr>---nooo- 

n  n  o  5  o  n  n  5  ai  n  n  $  £  «  8  8  wi  n  3  8  8  n  r!  8 S!  8  8  n  c5 «?  8  8  8  §  8  n  n  r!  8  8  n  8  n  8  8  8  8 


*O*-N»’OI)4-4«N«4WB4nNOB»N4»-ONN#NID0-lll-OM>-B4M>'O4* 
x-nnih0  44»BN»»4n«'0»n«NBB*B»t’4BBN4NBOBB44#«0»»S»(. 

rioinj  —  —  —  oiriri  —  nicinnloiniririnnoi-  —  fliri-Nniriniriniri-oini-  —  —  -  —  nninnnn 
nnNNNNNnnNnnNNnNOinriNnNnNNNNNNNnNNNNNNOINNNNnNnNN 


rvnr^Nr^'4  —  np-ono  —  O4NnoB>-0«>4«  —  ««oo- onov-nno  —  N»-a»-*«n  —  oo 
nn»BS4-N»-nn4«--4g«nN0-m-BiiMi(»»40(»i>'4n4a«)NN>wnN»B 

p>VNO»g>n«>«r<VriVpjf,ir>n»>w*pi6N(,jfl>wrii<rr>'boi«>4:<»p>»  —  ♦  —  nipjpjpjpiripjn 
nwftBBnwfjnonngnnBflRwnnnnRnBWRBnoRnonBnRflnnnnnonn 

BflBOWpBMi-B4gNgB«*-OBOB**SBPN4ftgflftWNBBtBOB-BBB-BB 

n0B«(IR»«4Nn4>B<ri)*O-44NNBBnNO4»SN4tBO»Oni>NON4*NB 

b  «  n  *■  oi  —  b  w  b  m  oi  —  nii'.'W.cbb«:p}r>c\inibnip>bo;p>i*f,j»»:bb«r  —  <b  oi  —  B4«n*'bb 
r<iniNoioiNNNnNriir«Noininninir4r»iMNnNnir»nira-n-nintntniniNnNNniniNniNnni 

Og444«NN-HlB»BNNPB44B«NN«0#0  0«MII#l'4-B»»«B»l>»Ofl4 
N»BP»4»«4MBB0NB4N40I)BI>B4-0NBB4PB»NB0PPB«»B0B»4 

NBOBBBBBBBBBNBBBVN-ciBOBBBB-BBPBNP^BVNBBOBOO-O-B 

NNBnNNNnNNNNNNNnNNBBNBNNNnBNBNBNNNNNNNNBnnnBBBN 

N»BHB40t4B0»N?NM-««BB«PB*9*BNN0fBS4PN40BtNBN4»0 

«4»BB#4B»4fN><4BtgOBOB>4-*BBfl44«»»«OO»N»l>O""B-P«0- 

nnnnriiNNNfiiNnnnNNNnnNnnnriiniNrinriiniNnNnNniNNNnNninnNnnN 
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(Table  B.l.B,  continued) 


NOiiniiigi)sn4iii44M\i»»eo»nMiixM)noo« 

44l)>t4»«aNNf44NM)»n«*OIIOIhx01C>i*4 

bbri»>r>b.b«>bb»bb*******V*r>»r>b**«r**; 


onss»»onnn»n<s«n«M 

Kv^MNonnnowxnNw^Moi 


•otKNnNonnnoD 
iansnn4xnn« on 


4tnn44ii«44t4i>ni)Mi'«(inii*(i4n)ifln«i)« 


»Sa»NnoxN40040j*N04'«00«4«0»"4B*« 

bkKBNMbnnnnbbbao-bbaaHaaaab^ni^b"" 
..^....-.ciinirjrurwoirwrii  —  —  —  —  —  —  —  ~  —  -.~-<r4r\immr\<cn 


nnoinr>»nnr>ooao‘»-or»  —  nanw-KrtaNoa-oo-  —  — 
»»«na«ns*»'<e*NrsMSoniN4«o»ih»nN 

4<:n4i)4iii)(if)t44i)<:i)nnn*n4n<i:i)n<:4n(iii 


SN»Mi»ONsoaNiMii4  0iD4«oo»no>iiignn4g 
4«ni)«»BnoNS»Nn>one4Mii)4N»niB4nN4 

bNbjb'bbb'driV^oi-oi— ►-»nniri-WN<drib*pjpj 

(IlnNNNNNNNnNNMNxNNNNNNNNNniNNNNNN 


n#NNON-NB#i)N»«4MD»N4n»»’4ne4(iii)n« 
r>o»*r>.o.oMOB*ciirvin  —  r-iv  —  -oa)r'Mr40*r>onK».o 


no-nmrv  —  odmoocd^)  —  rvn^jooo(hKM^no-nr-NCi"Oo- 
'4444N9IT«»ONKONONNna«4N4«nnN4n 


a  * < 


•<M)x«non4nN4»i)’>*n«NO!tino»>no4goo 

tnnnnfltnnflttnNNnnnnnnnnnNnnnnNnn 


0‘Onv*ONOOman'0'Onono-Ox'OnaK<oK 
NNNMtON*ne-»asfl444Nrr- - 


_  _  *  a  *>  k 

ON»i>ne-#«on 


*n<nitM«niNniNMr««M  —  —  —  —  w  —  —  —  —  —  —  runcx-  —  oim 
nNNNNNNNnnNnnnNnnNNNnNNnnniNrininN 


r)044«40NruiNB0rt4  n  n  non04»)i4Ns»nnn 
•<4S4aNn4N»NtH44l)Nn>MN4M«4nN«NNn 

5Srir!S{3R88nS8n388niRnnRn85r!n83i'inn 


B»nNi)»NNnK«»4n<iina«B4n»»oson«x 

r»a*»>N»‘r5'flNBBfrN<o*-Rii5-vo*»r»oo-rvo>«'ao-nin 

88S58!:SSJ55a8i8!3«8a83S28S2228aS5a 


S«44i08M44NnH»ll»4«#«aN#«»4»a«4 
-ONn-5n»N«n»o»'-BB-ffloifN4»aioo-*o« 

(jp»'«64;*4'4n46-»*»4NSOD^BNnN4-04nd> 

nNNnnnnnNNnnnniNnnnnnnnniNNni«nnnN 
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Table  B.2.A 


n#oflr)eNOo<iNOo#o#sBBfinBOnMir)ooBSNBMinnooo 


HN»4N)in44NnnOgOM«N0444NBN04*«  £  «r  K  *>  —  <«»»* 
u^o--oi-'«r'i-'-on-oo-»nn»»(D^»r>nir*-o5i>o-o-CDajair'^o^o*ooo 

Ul . 

k  rv  r*  r»  N'N  B>rsB>»NKrvrsr<-rvrsrN.KNB>i»rvKr>.(v;o«4444-04^4B>>Krvt^N. 
flflflflBflflflNBBflBBBflBBBBBBBBflfiBfiflBflBBBBBflflBB 

t-nnntBoriKnonnNr^ooaooB'Oonnnoo^OPior'OOonoKOOo 

goa>ono*4«N4no4n«o4*NO»onn«aBnnnron»ogg»*4 

nnnnnnnnnnninnnnnnrannnnnnioinninnninninninoinnnn 


SflOOONOnOOOBOOBflROnnOIIOI 
«»»«NNB40flr - — -  — 


lt'nttOB4*BNNOOI 


oonoonoonnnooooo 

BBOOB4#fl»'BNN*»«N 


«BBBNN«OOg'9'BSSNS444444  4  4  4l>n44l)«llll<l(ll>nilll44 
nNBBflnBBNNNNNNNNNNNNNNNNnNNNnNnNnNnNnNnn 


iaoaaflBNeooosNSBonoonoooo«o«n»ooooiiiinoooo 

hnB*n*«»4-4i)«N*n«noK4i)4B*i>nni«-o»BM>«*s40 

B*4*riNx(iaaasN4  444nn*<r**4«**'r'):<4:*nhnBBB»6« 
flBnnnnnNNnnNivNNMNNNNNNNNnnnNNNNNniNNNNNBB 


u.®w®r)r»NO«»>#>nnnnr>onp>KOP>oi,»Nivpor^ooo»>«ooooooo 

- - -  -  - -  - - -i>*n«6i  —  — 


.jnvao-'OK-'nononx-ovnnnoo-'O 
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ihtfNxaMinoxooo 


<U.«-<rnn~OO®NNNNN)^r^Krvr<.N«4)«4)<04>4)nn®n4>«'*«'<rvvooo 
a  BflBBBBBnNNNtllNNNNNnNNNnNNnNNNNNnnnNttNn 

h 

$xnoonooN®oonNONNi^nooonnoooooo®onooonoooop 
-hi»444»n««  vr^o-nNffl-onnnor^nnvNN-onx  o-bwno-k-^no-o 

Q.  | . 

KU.nnnwo(MB'<jn*^^^nnno(Nrt»»*-«*<NNNMDHflirtfflfflon(0(Doro 


»-non«norvooOKnnna>rvNnor>r>r>oor>nooot>^o^ooooo«o 

cfl«rMH>PiNj*NrtMnoe‘-o»o<nnnoMVP)<wn««>t«tftio*orta)M,)NO 

3*6666 'rninri^^^o  6  6666666666666666666  oo<h666~ 
nnnnnpjnonpinnnonnnnnnnpinnnnnnnnnnnnnnininnn 

u  onnunoooooNNOOooNOooonojooooDOjooftftooooo 
E'OonHiMDONiiinnchK-ooN’Ottnnnoinoitno'-aj'C^n-oointht 
Ui  O' . 

5  pjfJonnnnonfinnnpjpjcjonwniwwoiNoiNNOinnwninNninininnn 

h- 

< 

K 

wooDoo®ONOoooNprs.o«DonNnnp)nnooooNpooNON.nNnp)DO 

jjCNDftNOftNmrj-oofr^mnn-Mttw^-ooo^^ooBNMO^t 

uijft4’<r4’F)rjni*«*4«««4««666666660'‘9'9‘P‘<hfr‘0i’(h(h0‘6a)(haj®6®fr'£>6 
h  nnonnnrjnnrjnrjnpjnnnnnnmoiwnininiNrtwoirtnininoinininirtf) 

onnmoNoooo«Knorvnnoononr)ooooooooooo«onoooo 

OB . 

nnwnwpirtpipjnnonofjfjnfinnnwnoononnnonwnnHpjnnr) 


.  Pv  Ps 

I  P*  o 


fi»nonM,)oofiNp)nB««oopiNoooKnoNNOoiljM,»50ooNi 
o*©&*K*p«>oi*oN®fo-p*«o«<o*aio*«th«NK«o*mN<o***«fip**Ni 

<SSSS5S8SSnnnn?3nonoonoSR88SSSr!8888SRSRl88n 


K#no»noMioooBBBOMioi)«oooBO»i>#«»#o»5##oooo 
^f)»NaN4ai)6  4Nnn’<aa«NBNnNN(iBiiNNaK4flBB-<  —  noeo 


>  6  6  6  c 

i  6  6  < 

>  6  6  6  c 
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JOOOpOpOOBOOO 

iwpionwnnof 

1  n  n  n  p 
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)p)p)P)P)Bor 

^OnOnOnHPJW 

oonnnnnopo®ooor>n»eoooooooooono®o®n«>r<ooooo 
<rwo--oooD*or)r>»-»>r-o-o-r»c>5r<-  Baflnoo»4NB4N4«  «®>oo-» 

nnnBNNnnNNNnnnninnriinninNN 


N<o*P)P>nONN<n*»*»**'i,>noop)r) 
- -  -  N«NN(»NNN(»rtN«  P)  P) 
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8888888888888 


888888 
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(-0P)4BNtB-*N0n4jNi)a;4tqB4P(»pB«j!!>2n4>(!jnj5-»N 

»«-«««Bnnn***n«*4444sssBB«>aM'Oo5«-« 
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RATE  OF  HEAT  LOSS  (UATT8)  DTPIART.  DAT 

CH8T  ASD  UBAC  LBAC  ARM  HR  ST  F-TH  FCLF  R-TH  RCLF  FOOT 

i  99  a.  ss  a  89  a.  at  a.  44  t  ea  a.  39  a.  34  3.47  3.03  4.  &o 


—  o-oKo-n  —  nio-'On^'O-O'O-O'Oo-o  —  P)*-onom<i 

•  nnniNNnNNNNNNniNNnN(«NnNnnnNnNNS--«N(S>«« 


jiONnooinnn»ni«oNN«*t'Ns<«MiinsnafliD444 

»xTNgNBNx»nnoiKt(in»N*»N«oooiKO»«NOO(iiR4n 

n><«NdiaiBBBNNt«N444KN4*44n44n'«n44nn4'4«n6^'< 

9jNB0«ft»0n*O«*Nn*«*NO«S04nN0a«*4*N»»NN<t 

(rHYrn»nn*«ono4N4iiir>n>N4«nNNNgins4t»«s4 

n  *  o  -6  •>  r>  *  ♦'  *  -o  «  6  n'  r>  *  r>  n  -o  r>  <6  «  r>  *  ♦  *  r>  <0  «o  -b  <6  c-  6  o  6  a>  ®  -o  -6 
xxttnnNNNNNNNNNMNNNNNNNNNNNIIlNNNNNnn- 


air«»»'*-»Bn«'OiM»»*nnf«piM:nj«»()nnN»i,Ni'0-'Oon 

Mi04NTxx4Dtxi<rNDBCinaMn40Nxn»r4»ni>Nnftns 

nj»<rnosa9>afflNDCBNNN44N<o«rinninn4<dNC|>cgK«h.g^««>»-bn 


4N*N»MH'«NB>)«»VN4n4Nxx4fNrmxONnN«nM1l40»x 

o-0‘<4N<ONx<MivoN<oNnoo‘NOO«'nDo-nnKDnxx«'a>xNrx»>N«<«'n 

—  6r>'Or>n6c<---©6fr®.<)i'*ffi>>offlKr>r>.oi>o->-o-  —  N^r<r>6o-o-o 

xxNNMNNNNNNIIIxxxxxxxxxxxxxNNxttNNxNNxx 


4ONxn«O»NO$nN'0a4R8Bx4Nx»»ogNOS»»tN*4«»B 

Nt't'B»oiM>'BiMin>-»nn«nno-M»n««ononMMjor)<t'- 

riri*  n  Mriciririririn  ni  r»  o  m  n  -  r)ri*ri«worion-  —  —  —  6  «•  ni  *  *> «  n 


B5'00000*fB<iM»<rO'xSN<rnmn-<$oiMi-o*0'M«---n><iii 

ri*x6ci66c>xN6BNNi>ih»i\srinBgiN464ixNnN»gs4n«:*«»' 
•»  iinNnNnnNNNNNnNnnNNNNNNNNMMNNNxx 


nco--rirwKi>-oo-r^ain»-^o^ono-o--iOas-nMncnr*r^-r*wivoN 

tMisniM«NxnnMii«QxMi<Mi)0'nonni)o»»4o*iii«riiihN 


gooQoeopQQOQPoooooopooogoooopooopooooQo 
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666606600006600006066060000006000000000 
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FN-<onBnnrt*BNNOB*  —  «Nwnwwo-<o®'or»^>o  —  »oww»«*-« 

6nNnin<o<d««:9:8BNN<iNBN8ddd»>'BBNB66»:e~o:BnBnN~ 


i>*Boooeoo40«on«4nnnt!«xn»»Aoxinxx4N'«Min* 

^ooooSoonr>nnoN»4«»Nlt»ot'»«NxN»«o«onB»N» 

■<66666060  -  nrioiVaiN  tv-®  6  4x4»iiiiils6rNt:KiNeiit;Nii 

nNNnNxNNNnNnNNNNNNnNNNNNNnx 


Mtn050«NS4(l(l 


X<MI4R04D<<I 


«n«fl0NBDx<oBB#;.«4<nBB«*nn<40B00sn?>P«NK 
—  «  not  —  N«nMNnNxnNnxxNxj<NnNi;NNAAnnNNx  -« 
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KorjddoidB-jjNpnjojrvBB-vNppjddwBB-jNppj'OtnicB-^K 
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i,'-nnf,>onpNKNNsp)ONONKrs.N(,>KOKKr,>p|»Nh.Kp>nnoN.nooM>- 
lKh»»’»»fra(Ba®BBSaSaMs.rvrs.Kr^SKNNNr»NKK»».NK<r<K|N.^J‘ 


t-xv-«a«'<o«NnaN»«o-e-anoKNnNNna*<«Nxo-<o~«<<o»-Nna<«« 

0-----Nwnioi(inKNniNnSiKn----<oo>»K't’NOOiiiN'«sN<j<i 

u . . . . . 

a;NNSNNP'^>NNNrvNr»N^KKr<-Nt^Nr>.(>.K444  i  ^  i  ji  j 

wwnBnwwnoBnnnwwnnwwownftnnrtnnnnnnnnnnnnnrt 


t-nor^oKOPJNonooof'-nnKKonKonnNpKKoonnNnnnrs.r'oo 


LnnnNN-'»ooopoot't'>»»oiBBBiiissssNNN'OJMi'0'Onnnr«i 
nflnnnnnnnnnnnNNNNNNNNNttNNNNNitNNNNNtiiNnNNN 


LOfloonnnonoNNSONONnsssKnnoDBnssnonNM 

jnn«MMi»s«OBB»fifl-NncMj'S*rt>ihMi-f'B'0«no: 

o 


ONno 
i  n  n  n  •< 


a:np>n^ooo»-»frBBfflBOBKKKf^"0-0'<)<n**nn***'»»«-nnnnn 

nnnnnnnnnntiNNnninNNnnNnnnnnnnnnNnnNNNNnNn 


ZNnnonNonnnNOONnNnpoonoKNnnnnor^BKnNnnnNrvK 

H*«»-n<r»'«onxN<onn»‘»'nNxa'0«rnoa««rnnoihaa<o«>nnxoo‘ 

iririiii«ot:a;>:oiB^NM4444Bi>i)Bi)«t**V*rinnnnniliriniij 

nnnnnNNNNNnillllNMNIIINNNNNNNNNNNNNNNNNNNNNNN 


u.0^nn0NNnr>-N0B»>000N0P«0K000nr,)0»>»>00»>«>r>-NNt,>N0N 

_i(><ro-ndN<rNNxxN<oanxai^nno-a<ovnooa»Oxocinci(«*<«K>o 


Oknn^nnranxxxxooogoiMho-paaaBaaaKKaaaeeeaaBeB 
nnnnnnnnnnnnnnnnNKNNNNNNNnNNnNNNnNNnNNNN 


%ZONnnr«.NNQnnNNpoonnngonnnonnoaonnonoononoo 

nt--ON<r<o^neono<«Nexi>-«nN5o‘Nn«'noNNar^noo>oa'a<«'nnwn 


< 

CO 

CQ 

<v 

-Q 

<v 


a.  t 


HiLPJPJQ-oo?j-«»NNNNj<'C'0<^«n«B«ttt»»^n»nnnnp)nn 
a  nnnnnnflifiiriiSNrtwniNWwoininiNnirtwniwNrtniniwwoinwNoiwww 

t-noh»ooNOKfnonr>nnn«r>r>or>noooo«or>oooooooooooo 

«a*n«o»K<0‘®o*»on-nBnoofl>ni>-0‘iHMDn«N®«<iD»-onon« 

5«ro*riNoipix6o6-6x6o'666»:»;o;»BajaiBBnri»****»*»** 

nnnnnnnnnnnnnnnnnnnnNNnNNNNNNNNnnnNNnNiiin 

u 

noNr»onnoof*onBnotKnonnoonoBooh>-ni>»Knr».ooP»NO(,> 
roo-'O-on-ffl*  —  —  o«NBa>r>*n~o--ONr'a>r>oiON-o**<M-oo-<h 

ui  k . 

i<<rr»<»nnn(iNNNr!r!"«««-««-oooooooonn'iMMhtBB 
3  pjnnnnonnnnnonnnonnnnnnnnflnnonoornfiifiiwwwwwS 

< 

a: 

uiotnNr«.NnnnBor»BnE«onNontNnonrNonNONonKOBnnNoo 
—  xxfrBNN*nnx».B»oow»"«*o  —  —  oooe*ao-BK<r>*<r 

t-  nnnnnRnnnnnnnnnnnnnnnnnnnnnnAAAlyiiiANNNNNN 


uononnnooooNnNOoonNOBBnonKrs.NonononKorsooNo 
<  o  n  -  ♦«  —  NOBn»oxN-»>>o«a»»p>rtooeBKna»«'nw«xxwwc5 

S4«4BiiBBiit  *»»***rtrinnoriririririwwninioiwwr»ritwwfiioifiioi 

AAAHAHnAOAnnnnnnOBnBBAAnnROAABnBHBnAAABA 

r>pKA«.nNONONOKBnnNnoNsop>Nr>NNNnor>«.NnoNP>p>pKnn 

aA4«*NN«NAe4tN»4nN04t«N»SBn-<»lhSMI«Rn«S»BB 


<SSSS3Br!Sn8S8SSSfifiRSSSf5f5cli«ficJtSt8fS(S(5n!«5tSc5(5fi!SS 

^pNnNnnQNNNNnNnogQpnnonoNpnoaoaapaooeoooa 

moBOBr'«<rJN»nwBB»nonBB*aNNf«SB«rxx5^»rvJ5o(  —  xx 

Ul)4:nA«odO!:»t!iBB8iBSMNM4li4444444l)l)l)»^NNli 

AnnAnnnANNNNNNllflNNANKNNNItNNNNNNNNNNNNIlINN 


Q  n  N  K  P) 

<  ♦  - 


NKnnnNooonggopnnnpnonoooogooooopooooooo 

Nx|)B«h4PxNOi444NAOO«Mln4N^BP«NOM>enilBP 

l<tnn«60PB:Si»B:«666BBdnP»O4i4i4'44«44iK^N4i'«4i«4i4)« 

AnnnnnNNNNNAnAnNNAANNNNNNNNttNNNNNNANNnillN 
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APPENDIX  C 

DETERMINATION  OF  THE  VISCOSITY  (A),  THERMAL  CONDUCTIVITY  (k), 
AND  OTHER  PROPERTIES  FOR  A  95%  HELIUM  -  5%  OXYGEN  GAS  MIXTURE 


To  facilitate  the  selection  of  correlations  for  predicting  the  properties 
of  this  binary  mixture  of  nonpolar  helium  and  oxygen,  the  behavior  of  the 
mixture  was  investigated  by  evaluating  the  component  gases  to  see  if  they 
could  be  treated  as  perfect  gases.  To  this  end,  the  compressibility  factor 
(Z)  of  each  component  was  determined  from  Nelson-Obert  generalized 
compressibility  charts  [53]  with  a  reduced  pressure,  Pr,  and  reduced 
temperature,  Tr,  as  defined  in  Equations  C.l  and  C.2,  respectively. 


Pr  =  — 
Pc 


(C.l) 


where:  P  =  Ambient  pressure  in  ATA 
Pc  =  Critical  pressure  in  ATA 


(C.2) 


where:  T  =  Ambient  temperature  in  °K 
Tr  =  Critical  temperature  in  °K 
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The  estimated  compressibility  factors  (Z)  as  well  as  the  critical  and  reduced 
values  are  listed  for  each  component  in  Table  C.l.  The  compressibility 
factors  of  both  helium  and  oxygen  were  found  to  be  approximately  one 
(Table  C.l),  which  indicates  that  these  real  gases  can  be  assumed  to  behave 


Table  C.l 

Critical  and  Reduced  Properties,  and  Compressibility  Factor  Values 
for  a  95%  Helium  -  5%  Oxygen  Mixture  at  295.30  °K  and  20.89  ATA 

Helium  Oxygen 


Tc  =  5.3  °K 
Pc  =  2.26  ATA 


Tc  =  154.8  °K 
Pc  =  50.1  ATA 


Tr  =  55.72 


Tr  =  1.91 


Pr  =  9.24  Pr  =  0.42 

Z  -  1.00  Z  -  0.99 


ideally  at  the  mixture's  temperature  and  pressure.  To  evaluate  the  behavior 
of  the  mixture,  Dalton's  Law  [53]  is  applied  in  terms  of  compressibility 
factors  for  a  mixture  of  ideal  gases  (Eq.  C.3).  I 

i 

I 

Zm  -  l  *izi  K-3) 

i  =  l 

where:  ^  -  Mixture  compressibility 

y-j  =  Mole  fraction  for  component  i 

Z^  =  Compressibility  factor  for  pure  component  i 

n  =  Number  of  components  in  mixture 

Equation  C.4  is  reproduced  from  Obert  [53]  and  expresses  the  relationship  j 
between  a  mole  fraction  and  a  volume  fraction.  1 


n 
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i 


i 


yi  - 


=  vi 


where:  yi  =  Mole  fraction  of  component  i 
n-j  =  Number  of  moles  of  component  i 
n  =  Number  of  moles  of  mixture 
V-j  =  Partial  volume  of  component  i 
V  =  Volume  of  mixture 

•  100  =  Percent  by  volume  of  component  i 
V 


(C.4) 


t  For  a  95%  helium  -  5%  oxygen  mixture.  Equation  C.4  indicates  that  the  mole 
fractions  are  0.95  for  helium  and  0.05  for  oxygen.  With  these  mole  fractions 
|  and  the  compressibility  factors  (Table  C.l)  for  helium  and  oxygen, 

'  Equation  C.3  yields  a  mixture  compressibility  factor  (Zm)  of  1.004.  This 
result  confirms  that  the  mixture  may  also  be  treated  as  ideal. 

Examination  of  a  generalized  compressibility  chart  [53],  shows  that,  as 
the  pressure  becomes  small  relative  to  its  critical  pressure,  the 
compressibility  factor  for  any  value  of  reduced  temperature  (Tr)  approaches 
one.  This  implies  that  any  nonpolar  real  gas  will  act  ideally  if  its  pressure 
is  low  relative  to  its  critical  pressure.  Analogously,  property  correlations 
i  for  low  pressure  mixtures  of  nonpolar,  real  gases  may  be  assumed  to  yield 
reasonable  values  for  mixtures  at  any  pressure  when  the  mixture  behaves 
ideally.  This  conclusion  permitted  us  to  select  correlations  for 
viscosity  (y)  and  thermal  conductivity  (k)  which  were  recommended  by  Reid  and 
Sherwood  [43]  for  low  pressure  mixtures  of  nonpolar  real  gases. 
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Viscosity  (p) 

Reid  and  Sherwood  [43]  suggest  that  Equation  C.5  be  used  to  predict  the 
viscosity  (pm)  of  a  low  pressure  binary  mixture  with  the  Wilke  estimate 
(«ij,  Eq.  C.6)  for  the  $12  and  i21  terms. 


wm  = 


“i 


u2 


i  +  *12  (^2/y  i ) 


i  +  *21  (yi/y2) 


(C.5) 


where:  um  =  Mixture  viscosity 

vij  ,u2  =  Viscosity  of  pure  components 
ylfy2  =  Mole  fractions 


i  j 


1  ~l 

*-* 

+ 

x  1  x 

LO 

• 

o 

.25  1  c 

4  .  Y 

0.5 

j*  • 

‘*(i 

(C.6) 


where:  4-jj  =  *12  and  $21  for  Equation  C.5 

u-j.Uj  =  Viscosity  of  pure  components  i  and  j 
M^.Mj  =  Molecular  weight  of  pure  components  i  and  j 

Table  C.2  displays  the  property  values  which  were  substituted  into 
Equations  C.5  and  C.6  to  estimate  the  mixture  viscosity.  As  indicated  in 
Table  C.2,  the  temperature  of  the  mixture  is  specified  as  295.3  °K  (22.15  °C). 
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Properties  Substituted  into  Equations  C.5  and  C.6  for  a 
95%  Helium  -  5%  Oxygen  Mixture  at  295.3  °K  and  307.0  PSIA 


Hel i um 

Oxygen 

Subscript  # 

1 

2 

Mole  Fraction 

0.95 

0.05 

Molecular  Weight 

4.003 

32.00 

Viscosity  (LB/FT* SEC)* 

1.326  x  10“5 

1.3944  x  10"5 

!  This  temperature  represents  a  mean  film  temperature  selected  from  the  RHL1AR1  j 

■  i 

data  file  by  taking  the  average  of  the  highest  and  lowest  film  temperatures  ! 

i  I 

for  all  of  the  regions.  Substituting  from  Table  C.2  into  Equation  C.6  for 

| 

*12  and  *21  yields  2.3226  and  0.3055,  respectively.  Equation  C.5  produces  a  j 
mixture  viscosity  of  1.3865  x  10"^  LB/FT*SEC  when  the  values  and  property  i 
values  from  Table  C.2  are  substituted. 


Thermal  Conductivity  (k) 


From  information  and  recommendations  presented  by  Reid  and  Sherwood  [43],  j 
we  decided  to  utilize  the  binary  form  of  the  Wassiljewa  equation  (Eq.  C.7) 
with  the  A^j  terms  which  are  determined  from  the  Lindsay  and  Bromley 
formulation  (Eq.  C.8). 


tThese  values  were  interpolated  from  data  presented  In  the  U.S.  Navy  Oivin 
Gas  Manual  [42]. 
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km  =  - ii -  +  - ^ -  (C.7 

i  +  k\z{.y  z/y \)  i  +  &zi(y  i/yz) 

where:  km  =  Thermal  conductivity  of  the  mixture 

k!,k2  =  Thermal  conductivity  of  the  pure  components  1  and  2 

ylfy2  =  Mole  fraction  of  components  1  and  2 
Ai2»A2i  Determined  by  Equation  C.8 


where:  Ajj  =  A12,A21  for  Equation  C.7 

p -j , pj  =  Pure  component  viscosities 

M-j ,Mj.  =  Pure  component  molecular  weights 

T  =  Absolute  temperature  of  mixture 

S-j.Si  =  1.5  Tfci  unless  component  i  is  He,  H2,  or  Ne; 
then  Si  =  79  °K 

T(ji  =  Normal  boiling  point  of  component  i  (°K) 
sij  =  sji  =  cs  ( si  sj  )°* 5 

Cs  -  1  unless  one  of  the  components  is  very  polar,  then 
Cs  -  0.733 

These  equations  are  valid  for  nonpolar,  real  gases  and  thus  reasonable 
estimates  for  ideal  gases. 

Table  C.3  displays  the  values  that  are  necessary  to  solve  for  the 
mixture's  thermal  cnductivlty.  Substituting  the  values  from  Table  C.3  into 
Equation  C.8  yields  values  for  A12  and  A21  of  2.3689  and  0.52399, 

respectively.  A  mixture  thermal  conductivity  of  2.189  x  10"5  BTU/SEC*FT°F  is 
obtained  when  these  values  and  the  properties  from  Table  C.3  are  substituted 
into  Equation  C.7. 
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Table  C.3 

Properties  for  Equations  C.7  and  C.8  for  a 
95%  Helium  -  5%  Oxygen  Mixture  at  295.3  °K  and  307.0  PSIA 


Helium 

Oxygen 

Subscript  # 

1 

2 

Mole  Fraction 

0.95 

0.05 

Molecular  Weight 

4.003 

32.000 

Thermal  Conductivity  (BTU/FT,SEC°F)‘*' 

2.417  x  10-5 

4.386  x  10- 

Viscosity  (LB/FT* SEC)"*’ 

1.326  x  lO*5 

1.3944  x  10' 

Normal  Boiling  Point  (°K) 

4.3 

90.0 

S  ( °K) 

79.0 

135.0 

Si i  (°K) 

103.27 

Other  Properties 

As  previously  mentioned,  the  specific  heat,  Cp,  and  the  density,  p,  were 
interpolated  from  data  in  reference  42.  The  interpolations  yielded  values  of 
0.94215  BTU/LB°F  and  0.2878  LB/FT^  for  the  specific  heat  and  density, 
respectively.  The  volume  coefficient  of  expansion  was  determined  with  the 
ideal  gas  formualation  of  the  reciprocal  of  the  absolute  film  temperature. 

The  characteristic  length  in  the  Grashof  and  Nusselt  numbers  was  set  equal  to 
the  region's  length  for  vertical  cylinders  and  to  the  region's  diameter  for 
horizontal  cylinders  and  spheres.  Table  C.4  summarizes  the  properties 
described  above  and  presents  them  in  SI  units. 


*These  values  were  Interpolated  from  data  presented  in  the  U.S.  Navy  Diving 
Gas  Manual  [42]. 
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Table  C.4 


Properties  Necessary  to  Determine  Grashof,  Prandtl ,  and  Nusselt  Numbers 
for  a  95%  Helium  -  5%  Oxygen  Mixture  at  22.15  °C  and  200  MSW 


3.945  x  10+3  J/KG°K 
4.610  KG/M3 
2.063  x  lO"5  KG/M* SEC 
1.364  x  10"1  W/M°K 


Specific  Heat  (Cp) 
Density  (p) 

Viscosity  (u) 

Thermal  Conductivity  (k) 


/ 

/ 


I 

I 


APPENDIX  D  - 

INTERACTIVE  PROGRAM  DOCUMENTATION  ' 


The  interactive  program  and  associated  documentation  have  been  developed 
j  on  a  Digital  Equipment  Corporation's  (DEC)  PDP  11/60  computer  which  executes 
!  the  RSX-11M  operating  system.  The  program  was  written  in  DEC'S  FORTRAN 

i 

IV-PLUS  language  [54,55],  and  the  PLXY-11M  Software  [50]  was  used  in 
generating  all  associated  plots.  To  implement  this  code  on  another  computer 
or  operating  system  will  require  the  availability  of  a  FORTRAN  compiler  with 
compatible  plotting  software  and  personnel  capable  of  understanding  and 
modifying  the  interactive  program's  code.  Such  personnel  should  be  able  to 
;  resolve  any  differences  which  might  exist  between  DEC'S  FORTRAN  IV-PLUS 
version  and  the  new  system's  version  of  the  FORTRAN  language.  Any  differences 
I  encountered  should  be  limited  to  the  'OPEN'  and  'CLOSE'  statements  used  to 
access  input  and  output  files  and  to  the  subroutine  calls  used  in  accessing 
the  plotting  software. 

The  Information  presented  in  thfs  interactive  model  program  has  been 
developed  and  verified  with  accepted  principles  of  engineering  analysis. 

These  developments  may  be  found  in  the  Chapters  I-VII  of  this  document.  The 
constants  specified  for  the  garment  ensemble  are  taken  from  the  Navy's 
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prototype  Diver  Thermal  Protection  (DTP)  garment.  The  references  to  corrected 
predicted  overall  heat  transfer  coefficient  (OHTC)  indicate  that  these  values 
are  corrected  by  use  of  an  empirically  derived  biasing  factor.  The 
development  of  these  factors  is  found  in  Chapter  VII.  The  references  to 
uncorrected  OHTC  indicate  that  the  empirical  biasing  factors  have  not  been 
applied  to  the  predicted  values. 

Program  Source  Code 

This  interactive  diver  heat  loss  program  has  been  written  in  DEC'S 
FORTRAN  IV-PLUS  language  and  utilizes  DEC'S  PLXY-11M  plotting  software  for 
producing  data  plots.  A  flow  chart  of  the  program  is  included  as  Appendix  E, 
and  the  actual  FORTRAN  source  code  listing  is  presented  in  Appendix  F.  The 
source  code  has  been  internally  documented  by  use  of  comment  statements.  In 
the  DEC  FORTRAN  IV-PLUS  language,  comments  are  specified  in  two  manners:  the 
placement  of  a  "C"  in  column  1  indicates  a  comment  line  and  the  presence  of  an  j 
exclamation  point  ('!')  in  columns  7  thru  72  indicates  that  what  follows  is  a  j 

i 

comment.  Both  of  these  methods  have  been  used  within  the  program  code  to 
allow  blocking  of  information.  An  experienced  research  engineer, 

i 

knowledgeable  in  FORTRAN  programming,  should  be  able  to  understand  and  modify  j 
the  program  code  with  the  assistance  of  the  documentation  that  follows.  Any  j 
modifications  to  the  program  source  code  without  prior  written  approval  of  the 
authors  is  the  sole  responsibility  of  the  user. 


I 
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Creation  of  an  Executable  Task  J 

j 

i 

I 

As  implied  previously,  this  documentation  assumes  that  the  interactive 
program  is  to  be  assembled  on  a  DEC  computer  which  executes  an  RSX-11M 

I 

operating  system  that  includes  a  FORTRAN  IV-PLUS  compiler.  Translation  of  the  | 

i 

source  program  is  performed  with  the  FORTRAN  IV-PLUS  compiler  (F4P)  by  the  | 
command  line:  I 


MCR>F4P  HLMOD.OBJ,HLMOD.LST=HLMOD.FTN  f 


j  This  command  specifies  an  object  file,  HLMOD.OBJ;  a  listing  file,  HLMOD.LST; 

|  and  the  source  code  file,  HLMOD.FTN.  Further  information  on  the  F4P  command 

! 

;  and  the  operation  of  this  compiler  is  available  in  reference  55. 

j 

|  The  translation  step  completed,  an  executable  task  can  now  be  created. 

I 

This  step  is  accomplished  by  using  the  Task  Builder  (TKB),  a  program  for 
linking  object  files  and  resolving  symbol  references.  The  command  used  to 
invoke  the  TKB  task  follows. 


MCR>TKB 

TKB>HLM0D.TSK,=HLM0D.0B0,[1,1]PLTUSL/LB 

TKB>/ 

ENTER  OPTIONS: 
rkB>MAXBUF=292 
TKB>ACTFIL=5 
TKB>// 


The  MAXBUF  option  is  specified  to  allow  Input  and  output  file  record  lengths 
greater  than  132  characters  (bytes).  The  ACTFIL*5  option  allows  five  files  to 
be  open  simultaneously.  This  is  necessary  when  creating  plots  to  compare 


^Each  command  line  is  terminated  by  striking  RETURN 
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experimental  and  predicted  data.  The  input  file,  HLMOD.OBO,  created  by  the 
F4P  step,  is  converted  into  a  runable  task,  HLMOD.TSK,  with  all  the  necessary 
system  supplied  subroutines  linked  into  the  Main  module.  The  second  input 
file,  [l,l]PLTl)SL/LB,  is  the  system  library  containing  the  object  modules  for 
the  PLXY-11M  plotting  subroutines.  Further  documentation  on  TKB  can  be  found 
in  references  55  and  56. 

The  file,  HLMOD.TSK,  can  now  be  run  to  estimate  supplementary  heating 
requirements  for  the  resting  diver.  To  initiate  execution,  the  RUN  task  is 
employed  by  the  command: 

MCR>RUN  HLMOD.TSK 

This  command  loads  the  interactive  heat  loss  program  into  memory  and  initiates 
its  processing. 

Running  the  Interactive  Model  Program 

The  diver  heat  loss  program  was  written  for  two  different  modes  of 
execution:  production  and  research.  In  the  production  mode,  predicted 
regional  heat  flux  and  supplementary  heating  are  calculated  from  data  supplied 
about  the  diver's  posture,  the  body  region  of  interest,  the  number  of  finite 
difference  nodes  per  region,  a  design  mean  skin  temperature,  and  the  ambient 
depth  and  temperature.  The  values  of  predicted  overall  heat  transfer 
coefficient  (OHTC)  are  always  corrected  by  applying  the  empirically  derived 
biasing  factors  before  calculating  the  predicted  regional  heat  flux  and 
supplementary  heating.  The  research  mode  duplicates  the  production  mode  but 
also  allows  the  comparison  of  predicted  and  experimental  temperatures,  heat 
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fluxes,  and  overall  heat  transfer  coefficients.  The  comparisons  are  performed 
by  using  either  corrected  or  uncorrected  predicted  values.  In  this  mode,  the 
predicted  values  of  regional  skin  temperature  are  calculated  by  using  a  mean 
skin  temperature  derived  from  the  experimental  segmental  skin  temperatures. 

The  experimental  data  used  for  comparison  is  always  stored  in  a  direct  access 
data  file  [54]  which  is  organized  as  described  in  Appendix  A  of  this 
document. 

The  first  question  asked  on  the  interactive  terminal  is: 

1  ARE  YOU  A  RESEARCH  USER  ?  (Y,N,X)  . 

If  you  respond  with  a  ' Y *  (yes),  then  the  program  will  execute  the  research 
mode,  while  if  you  enter  ' N '  (no),  the  production  mode  will  be  executed.  The 
'X'  (exit)  response  is  provided  to  allow  the  user  to  terminate  execution. 

When  the  user  responds  to  this  question,  the  program  stores  the  answer  in  the 
variable  REU.  Thus  REU  will  contain  either  ' Y ' ,  ' N ' ,  or  'X'. 

Since  the  production  mode  questions  are  a  partial  subset  of  the  research 
mode  questions,  both  sets  will  be  presented  at  the  same  time  with  REU=Y  used 
to  designate  the  research  mode  and  REU=N  to  indicate  the  production  mode. 

Each  question  will  be  numbered,  and  the  flow  through  the  questions  will  be 
Indicated  by  logic  statements.  For  example,  if  a  group  of  questions  is 
processed  in  only  the  production  mode,  you  will  then  be  instructed  to  go  to 
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the  next  question  asked  by  the  research  mode  or  both  modes.  The  logic 
statement  would  appear  as: 

| 

i 

j  IF  REU=N  GO  TO  9 

where  the  trailing  number  indicates  the  next  appropriate  question.  The  single 
difference  in  the  logic  for  a  research  mode  only  question  would  be  REU=Y 
I  instead  of  REU=N.  Questions  not  covered  by  a  logic  statement  are  applicable 
|  to  both  modes. 

i  The  layout  (column  and  line  spacing)  of  the  questions  presented  below 

!  closely  matches  that  which  appears  on  an  interactive  video  terminal  during 
execution  of  the  program.  This  correspondence  was  preserved  to  make  the 

( 

|  questions  appear  as  realistic  as  possible  and  thus  give  the  unfamiliar  user  an 
idea  of  what  to  expect  when  running  the  program.  The  only  difference  in  the 
appearance  of  this  document  and  the  video  terminal  is  that  the  first  line  of 
each  question  has  been  displaced  to  allow  the  inclusion  of  the  documentation's 
question  number. 

Question  Flow 

To  present  the  question  flow  completely,  the  first  question  is  repeated: 

1  ARE  YOU  A  RESEARCH  USER  ?  (Y,N,X)  f 

As  Indicated  previously,  a  * Y*  (yes)  response  causes  the  program  to 
execute  the  research  mode,  while  an  ' N ’  (no)  response  causes  the  production 

*The  response  to  each  question  is  terminated  by  striking  RETURN. 
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i  mode  to  be  executed.  An  'X'  (exit)  response  causes  the  program  to  terminate 
and  returns  the  user  to  the  operating  system's  control.  If  the  user  wishes  to 
do  additional  computing,  the  program  must  be  initiated  by  issuing  the 
RUN  HLMOD.TSK  instruction  again. 

IF  REU=N  GO  TO  4 

I  2  DO  YOU  WISH  TO  CORRECT  PREDICTED  'U'  VALUES  ?  (Y/N) 

A  1 Y *  (yes)  response  sets  REU=S,  which  indicates  that  the  research  mode 
is  being  executed  and  that  all  overall  heat  transfer  coefficient  values,  U, 
are  to  be  corrected  by  applying  the  biasing  factors  (See  Chapter  VII  for 
details.).  An  ' N '  (no)  response  indicates  that  the  U  values  are  to  be  left 
uncorrected.  This  response  leaves  REU  set  equal  to  * Y '  (yes)  which  implies 

'  execution  of  the  research  mode  with  uncorrected  overall  heat  transfer 

( 

!  coefficient  values. 

3  DO  YOU  WISH  DEBUG  PRINTS:  ?  (Y/N): 

i 

! 

|  A  ' Y '  (yes)  response  will  activate  certain  print  statements 

used  to  output  information  useful  in  diagnosing  possible  program  errors.  An 

j 

' N '  (no)  reply  causes  these  debugging  prints  to  remain  inactive. 

i 

! 

!  4  ENTER  DEPTH  IN  (M)SW,  (F)SW  OR  (P)SIG  BY  (M#,F#,P#):  [F] 

i 

l 

j  The  expected  response  Is  the  ambient  depth  of  immersion  expressed  in 

l 

meters  of  seawater  (MSW),  feet  of  seawater  (FSW),  or  pounds  per  square  inch 
gage  (PSIG).  The  units  are  Indicated  by  an  M,  F,  or  P  which  precedes  the 
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|  number  (i.e.,  M200.0  indicates  200  MSW).  The  depth  specified  must  be 

i 

I  <  76.2  MSW,  £  250  FSW,  or  111.37  PSIG  to  remain  within  the  range  of 

tabulated  thermal  conductivity  values.  Since  the  model  was  developed  by  using 
data  from  air  compensated  dry  suits,  this  maximum  depth  was  chosen  to  match 
the  normal  limit  specified  by  the  U.S.  Navy  for  air  diving  [46]. 

The  * [F] *  (floating  point)  notation  appearing  at  the  end  of  question  4 

j  and  '[I]'  (integer)  notation  appearing  at  the  end  of  question  10  are  examples 

I 

j  of  the  designations  used  to  indicate  the  type  of  number,  real  or  integer,  that 

J  is  expected  as  a  response.  The  ' [F]'  and  '[I]‘,  respectively,  indicate  that 

|  the  expected  response  is  a  real  or  integer  number.  These  notations  appear  on 
questions  where  a  numeric  response  is  required  that  is  not  specified  in  the 
list  of  possible  choices. 

i  The  * R '  and  'X'  responses  of  questions  5  thru  8  perform  similar  functions 

j  in  each  question.  The  1 R '  response  causes  the  program  to  re-initialize  all  of 

| 

1  the  displayed  data  to  the  initial  program's  assigned  values.  The  values 

j 

j  presented  in  each  question  are  the  program's  assigned  values  used  in  the 
interactive  model.  This  option  is  provided  to  allow  the  user  to  test  special 
values  and  then  return  to  the  program’s  assigned  data  without  terminating  and 
rerunning  the  interactive  program.  An  'X'  response  is  entered  when  no  changes 
are  desired  or  when  all  modifications  are  completed.  The  program  then 
proceeds  to  the  next  question. 


I 


5  SEA  LEVEL  GARMENT  ENSEMBLE  PROPERTIES 
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1- SPECIFIC  THERMAL  RESISTANCE  OF  UNDERGARMENT:  (CLO/CM)  2.27 

2- UNIT  THICKNESS  OF  UNDERGARMENT:  (CM)  1.63 

3- THICKNESS  OF  OUTER  GARMENT:  (CM)  0.1587 

4- THERMAL  CONDUCTIVITY  OF  OUTER  GARMENT:  (W/M*C)  0.1731 


ENTER  (1-4)  TO  ALTER,  (R)  TO  REINITIALIZE,  (X)  FOR  NO  CHANGE: 


Question  five  asks  the  user  to  verify  the  assumed  sea  level  garment 
ensemble  properties.  If  a  selection  is  made,  the  program  collects  the  new 
value  and  then  re-displays  the  question. 

The  region  names  and  ID  numbers  indicated  in  questions  6  thru  8 

correspond  to  the  numbered  regions  appearing  in  Figure  1  (Chapter  I). 

i 

Additionally,  whenever  a  change  is  indicated  in  response  to  these  questions, 
the  program  will  collect  the  indicated  value  and  then  re-display  the  complete 
question. 


6  REGIONAL  UNDERGARMENT  THICKNESS  (CM) 


UNIT  ACTUAL 


ID  # 

REGION 

MULTIPLIER 

THICKNESS 

THICKNESS 

1 

HEAD 

1.00 

★ 

1.63 

1.6300 

2 

TORSO 

1.00 

★ 

1.63 

= 

1.6300 

3 

ABDOMEN 

1.00 

★ 

1.63 

1.6300 

4 

THIGH 

1.00 

★ 

1.63 

= 

1.6300 

5 

CALF 

1.00 

★ 

1.63 

= 

1.6300 

6 

FOOT 

2.00 

★ 

1.63 

= 

3.2600 

7 

UP  ARM 

1.00 

★ 

1.63 

= 

1.6300 

8 

LOW  ARM 

1.00 

★ 

1.63 

= 

1.6300 

9 

HAND 

1.00 

★ 

1.63 

= 

1.6300 

ENTER  (1-9)  TO  ALTER,  (R)  TO  REINITIALIZE,  (X)  FOR  NO  CHANGE: 


This  question  allows  the  user  to  change  the  assumed  regional  undergarment 
thicknesses  by  entering  a  new  multiplier  for  each  of  the  nine  regions.  The 
unit  thickness  appearing  above  is  entry  2  of  question  five 
(UNIT  THICKNESS  OF  UNDERGARMENT:  (CM))  and  is  the  nominal  value  associated 
with  the  Navy's  DTP  garment. 
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7  ALLOWABLE  REGIONAL  HEAT  FLUX  (W/M**2) 


ID  # 

REGION 

ALLOWABLE 
HEAT  FLUX 

1 

HEAD 

23.30 

2 

TORSO 

60.00 

3 

ABDOMEN 

49.70 

4 

THIGH 

42.40 

5 

CALF 

85.00 

6 

FOOT 

97.00 

7 

UP  ARM 

98.90 

8 

LOW  ARM 

125.25 

9 

HAND 

265.86 

ENTER  (1-9)  TO  ALTER,  (R)  TO  REINITIALIZE,  (X)  FOR  NO  CHANGE: 

Here  the  user  is  given  the  opportunity  to  verify  and  modify  the  assumed 
regional  allowable  heat  fluxes.  To  modify  a  specific  region,  enter  the 
I  appropriate  number.  The  program  will  prompt  for  a  new  value  and  then 
re-display  the  table. 


i  8  REGIONAL  BIASING  FACTORS  (DIMENSIONLESS) 

I 


ID  # 

REGION 

BIASING  FACTOR 

1 

HEAD 

2.63 

2 

TORSO 

2.63 

3 

ABDOMEN 

2.27 

4 

THIGH 

3.50 

5 

CALF 

3.21  S 

6 

FOOT 

12.70 

7 

UP  ARM 

2.29 

8 

LOW  ARM 

2.19  | 

9 

HAND 

3.49 

ENTER  (1-9)  TO  ALTER,  (R)  TO  REINITIALIZE,  (X)  FOR  NO  CHANGE: 


This  question  allows  the  operator  to  modify  our  empirical  regional 
biasing  factors.  To  change  a  region's  value,  enter  the  corresponding  ID  #. 

The  program  will  prompt  for  a  new  value  and  then  re-display  the  question.  The 
derivation  of  these  biasing  factors  may  be  found  in  Chapter  VII. 
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9  WRITE  OUTPUT  FILE  WHERE:  (T=SCREEN,F=DMPDAT.LST) 

Both  the  production  and  research  modes  automatically  create  a  detailed 
output  file  which  is  enhanced  when  the  debug  option  has  been  activated.  This 
statement  asks  where  to  print  the  output  file.  The  'T1  response,  which 
indicates  the  'SCREEN',  refers  to  the  terminal  at  which  the  program  is 
running.  The  ' F '  answer,  which  refers  to  'DMPDAT.LST' ,  indicates  the  name  of 
the  file  which  is  created  on  the  user's  default  system  device  [55,57]. 

!  10  ENTER  #  NODES:  [I] 

i  This  question  allows  you  to  change  the  number  of  finite  difference  nodes 

I 

|  from  one  node  to  any  reasonable  number  per  region.  This  ability  is  of  little 

I 

i  value  when  comparing  predicted  and  experimental  data  unless  the  experimental 
values  are  recorded  at  multiple  sites  per  region.  We  suggest  that  the  #  NODES 
be  specified  as  one  until  more  detailed  segmental  temperature  and  heat  flux 
data  is  available.  This  option  has  been  included  in  the  code  to  allow  the 
operator  to  investigate  the  effects  of  small  changes  in  pressure  on  the 
garment  ensemble's  overall  thermal  resistance.  The  upper  limit  on  the  number 
of  nodes  is  left  to  the  user's  discretion.  The  number  can  be  no  greater  than 
9999  (limit  of  computer  variable),  but  practicality  and  the  lengths  of  the 
regions  suggest  a  number  approximately  equal  to  100. 

IF  REU«N  GO  TO  14 
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11  DO  YOU  WISH  TO  COMPARE  T,Q,U  VALUES  WITH  EXP'T  DATA:  (Y/N) 

The  answer  to  this  question  determines  whether  the  research  mode  compares 
experimental  and  predicted  values.  A  * Y*  (yes)  response  instructs  the 
computer  to  compare  experimental  and  predicted  values,  while  an  * N '  (no) 
response  indicates  that  no  comparison  is  to  be  performed.  These  responses  are 
stored  in  the  variable  QCOMP.  This  variable  is  introduced  to  facilitate 
j  subsequent  logic  since  it  controls  the  processing  of  certain  questions  (See 
j  question  12.).  When  a  comparison  is  performed,  the  design  mean  skin 
j  temperature  is  automatically  set  equal  to  the  experimental  mean  skin 
!  temperature  which  is  determined  from  Hody's  equation  (Eq.  8)  with  the 
!  segmental  experimental  temperatures.  (See  Chapters  II  and  IV.)  The  ambient 
temperature  is  set  equal  to  the  experimental  value.  Thus,  it  is  unnecessary 

I 

to  collect  a  design  mean  skin  temperature  (question  14)  or  an  ambient 
temperature  (question  15).  If  a  negative  response  is  entered  for  this 
question,  the  program  automatically  jumps  to  question  14.  (Note:  If  plots  of 
the  experimental  and  predicted  data  (question  18)  are  to  be  produced,  a 
1 Y '  (yes)  response  must  be  tendered  here.) 

IF  QC0MP=N  GO  TO  14 

12  ENTER  TOTAL  SURFACE  AREA  OF  EXP'T  SUBJECT  (M**2) :  [F] 

The  comparison  of  predicted  and  experimental  values  is  performed  in  terms 
of  a  heat  flux  (W/M2) .  However,  the  experimental  data  Is  stored  as  a  rate  of 
heat  loss  and  therefore,  must  be  divided  by  the  segmental  surface  area  for 
conversion  to  a  heat  flux  before  being  compared.  The  segmental  surface  area 
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is  found  by  multiplying  the  subject's  total  surface  area  by  the  corresponding 
Hody  segmental  surface  fraction  (Table  1  of  Chapter  I).  In  our  case,  the 
experimental  values  represent  the  average  of  at  least  three  subject's  data 
which  was  recorded  in  various  unit  systems.  These  values  were  converted  to  a 
common  base  system,  rates  of  heat  loss  in  watts,  before  being  averaged. 

13  ENTER  EXPERIMENTAL  DATA  FILE  NAME: 

Enter  the  name  of  the  direct  access  file  containing  the  experimental  data 
to  be  compared.  This  direct  access  file  must  be  organized  and  formatted  as 
specified  in  Appendix  A. 

After  processing  questions  12  and  13,  it  is  known  that  QCOMP  equals  a 
' Y '  (yes);  therefore,  the  program  must  skip  questions  14  and  15  and  proceed 
directly  to  question  16  (as  indicated  above  in  question  11). 

IF  QC0MP=Y  GO  TO  16 

14  ENTER  DESIGN  MEAN  SKIN  TEMPERATURE  (C):  [F] 

Enter  the  mean  skin  temperature  value  that  is  to  be  used  as  the  design 
goal  for  indicating  thermal  safety.  The  value  entered  here  must  be 
£  32  °C  and  >  26  °C  to  remain  within  the  mean  skin  temperature  range  defined 
for  the  regional  skin  temperature  prediction  model.  (See  Chapter  IV  for 
details.)  This  question  Is  skipped  if  a  comparison  is  performed.  Instead, 
the  Hody  mean  skin  temperature  calculated  from  the  segmental  experimental  skin 
temperatures  is  used. 
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15  ENTER  AMBIENT  TEMPERATURE  >=  1.0  (C):  [F] 

Enter  the  ambient  temperature  to  be  used  as  the  design  value.  The 
ambient  temperature  must  be  >.  1«0  °C  to  remain  within  the  temperature  limits 
defined  for  the  boundary  layer  fluid  properties.  (See  Chapter  VI.)  When  a 
comparison  is  performed,  question  15  is  skipped,  and  instead,  the  experimental 


ambient  temperature  is  used. 

16  SELECT  BODY  REGION  (1-9)  OR  (0)  FOR  ALL  REGIONS:  [I] 

A  response  of  one  through  nine  corresponds  to  regions  1  to  9  of  the  model 
man  (Fig.  1),  respectively,  and  specifies  that  calculations  will  be  performed 
for  that  region  only.  An  answer  of  zero  instructs  the  program  to  perform  the 
heat  loss  calculations  for  all  regions  without  recalling  any  of  these 
questions. 

17  SELECT  POSTURE  OF  SUBJECT  (0-SIT, 1-STAND, 2-PR0NE) :  [I] 

This  is  the  last  question  asked  by  both  modes.  The  program  is  designed 
to  accommodate  a  sitting,  standing,  or  prone,  resting  subject.  The  response  | 

i 

given  here  designates  which  posture  is  to  be  assumed  for  the  calculations. 

I 

At  this  point,  all  necessary  information  has  been  collected,  and  the 
program  proceeds  by  calculating  and  outputting  the  predicted  regional  heat 
flux  and  required  supplementary  heating  within  the  constraints  of  the  j 

parameters  specified  above.  If  the  program  is  executing  in  the  production 
mode  (REU°N) ,  then  all  predicted  values  of  overal  1  heat  transfer  coefficient 

| 

(OHTC)  are  corrected  by  applying  experimentally  derived  biasing  factors.  (See  i 
Chapter  VII.)  If  the  research  mode  is  being  executed,  then  the  predicted  OHTC  j 
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|  values  are  either  left  uncorrected  (REU=Y)  or  corrected  by  using  the 
experimentally  derived  biasing  factors  (REU=S).  If  a  comparison  of  predicted 
and  experimental  data  is  being  conducted,  the  program  calculates  the 

I 

experimental  comparison  variables  and  then  asks  if  plots  are  desired.  (See 
Figures  D.1-D.5  for  examples  of  the  computer  generated  plots.)  If  no 
comparative  plots  are  to  be  generated,  the  program  returns  to  question  1. 

IF  QC0MP=N  GO  TO  I 

18  00  YOU  WISH  TO  PLOT  T‘S,  Q'S,  AND  U'S?  (Y/N) 

| 

If  a  1 Y 1  (yes)  is  entered,  the  program  proceeds  by  asking  questions  which 
)  concern  the  plot  scales  and  then  produces  three  regional  plots  which  compare 
dimensional,  predicted  and  experimental  values  as  a  function  of  time.  The 
three  plots  generated  are  for  regional  skin  temperature  (T  in  °C),  heat  flux 
(Q  in  W/M2),  and  overall  heat  transfer  coefficient  (U  in  W/M2oC).  An  ' N '  (no) 
response  indicates  no  dimensional  plots  are  to  be  produced,  and  the  program 
proceeds  to  question  21.  The  tendered  response  is  stored  in  variable  PLD. 

IF  PLD=N  GO  TO  21 

The  scale  factors  which  are  displayed  for  verification  and  possible 
change  in  questions  19,  20,  22,  and  23  are  all  real  numbers.  Thus  any  new 
value  which  may  be  entered  must  also  be  real. 
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19  Y-AXIS  SCALE  FACTORS 


LY 

SY 

IY 

T  C 

5.00 

20.00 

4.00 

Q  W/M2 

5.00 

0.00 

50.00 

U  W/M2*C 

4.00 

0.00 

4.00 

SELECT:  (l=T,2=Q,3=U,X=NO  MORE  CHANGES) 

This  question  gives  the  user  the  opportunity  to  alter  the  assumed  y-axis 
scale  factors  of  length  (LY),  starting  value  (SY),  and  increment  (IY)  used  for 
the  dimensional  T,  Q,  and  U  plots.  If  a  number  between  one  and  three 
(corresponding  to  skin  temperature  (°C),  heat  flux  (W/M2),  and  overall  heat 
transfer  coefficient  (W/M2oC),  respectively)  is  entered,  the  program  will 
prompt  for  the  indicated  scale  factors  and  then  re-display  the  question.  An 
'X'  (exit)  is  entered  when  no  changes  are  desired  or  when  all  changes  are 
completed. 

20  X-AXIS  (TIME)  SCALE  FACTORS 

LX  SX  IX 

T,Q,U  MIN  7.00  0.00  20.00 

CHANGE  X-AXIS?  (Y/N) 

This  question  allows  the  operator  to  modify  the  x-axis  (time-axis)  scale 
factors.  There  is  only  one  set  of  x-axis  scale  factors  for  the  dimensional 
skin  temperature,  heat  flux,  and  overall  heat  transfer  coefficient  figures. 
This  Is  done  because  all  of  the  plots  are  generated  from  the  same  set  of 
experimental  temperature  and  rate  of  heat  loss  data.  If  a  * Y*  (yes)  is 
tendered,  the  program  will  prompt  the  entry  (separated  by  commas)  of  the 
time-axis  scale  factors  of  length  (LX),  starting  value  (SX),  and  increment 
(IX)  In  the  units  of  minutes.  An  ' N '  (no)  response  will  cause  the  program  to 
continue  using  the  assumed  values. 
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The  y-axis  scales  shown  in  question  19  and  the  x-axis  scale  of 
j  question  20  were  used  to  develop  the  plots  displayed  in  Figures  D.1-D.3.  The 
;  listings  of  data  in  Tables  D.5-D.7  are  produced  as  the  corresponding  plot  is 
generated  and  are  stored  in  the  output  files  discussed  below.  Each  tabulation 
lists  all  the  data  plotted  in  the  respective  figure. 

The  program  proceeds  to  generate  the  intermediate  vector  files  used  by 
j  the  DEC  PLXY-11M  plotting  routines  [50]  and  the  corresponding  output  files. 

|  The  three  intermediate  vector  and  output  files  produced  are  named  C0MPAR.VEC;N 
I  and  C0MPAR.0UT;M,  respectively,  where  N  and  M  are  version  numbers  assigned  by 

i 

the  operating  system.  The  temperatures  are  plotted  and  outputted  in 
C0MPAR.VEC;N  and  C0MPAR.0UT;M,  followed  by  the  heat  fluxes  in  C0MPAR.VEC;N+1 
j  and  C0MPAR.0UT;M+1,  and  then  the  overall  heat  transfer  coefficients  in 

I 

j  C0MPAR.VEC;N+2  and  C0MPAR.0UT;M+2.  The  vector  files  must  then  be  manually 
!  converted  to  interpretable  graphs  by  running  the  PLTCTL.TSK  program.  Details 
on  this  program  are  contained  in  reference  50.  The  interpretable  graphs  and 
their  corresponding  output  files  may  be  directed  to  a  hard  copy  printer  using 
the  RSX-11M  tasks  PIP  or  PRI  detailed  in  reference  52. 

21  DO  YOU  WISH  TO  PLOT  NORMALIZED  T’S  AND  BIOT  #'S  ?  (Y/N) 

If  a  ' Y '  (yes)  is  entered,  the  program  proceeds  by  asking  questions  which 
concern  the  plot  scales  and  then  produces  regional  plots  which  compare 
non-dimensional  predicted  and  experimental  values  as  a  function  of  time.  The 
two  plots  generated  for  each  region  are  for  regional  normalized  skin 
temperature  (TN)  and  Biot  number  (BI).  An  ' N '  (no)  response  indicates  no 
dimensionless  plots  are  to  be  produced,  and  the  program  returns  to  question  1. 
The  tendered  response  is  stored  in  variable  PLN. 
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IF  PLN=N  GO  TO  1 


22 

Y-AXIS  SCALE  FACTORS 
NON-DIMENSIONAL  T'S  &  U'S 

LY 

SY 

IY 

TN 

4.00 

0.50 

0.25 

BI 

4.00 

0.00 

10.00 

SELECT:  (1=TN,2=BI,X=N0  MORE  CHANGES) 

This  question  gives  the  user  the  opportunity  to  alter  the  assumed  y-axis 
scale  factors  used  for  the  non-dimensional  TN  and  BI  plots.  If  either  1  or  2 
(corresponding  to  normalized  skin  temperature  (TN)  and  Biot  number  (BI), 
respectively)  is  entered,  the  program  will  prompt  for  the  indicated  scale 
factors  and  will  then  re-display  the  question.  An  'X'  (exit)  is  entered  when 
no  changes  are  desired  or  when  all  changes  are  completed. 

23  X-AXIS  (TIME)  SCALE  FACTORS 

LX  SX  IX 

TN.BI  MIN  7.00  0.00  20.00 

CHANGE  X-AXIS?  (Y/N) 

This  question  allows  the  operator  to  modify  the  x-axis  (time-axis)  scale 
factors.  There  is  only  one  set  of  x-axis  scale  factors  for  the 
non-dimensional  normalized  skin  temperature  and  Blot  number  graphs.  This  was 
done  because  all  of  the  plots  were  generated  from  the  same  set  of  experimental 
temperature  and  rate  of  heat  loss  data.  If  a  ' Y *  (yes)  is  tendered,  the 
program  will  prompt  the  entry  (separated  by  commas)  of  the  time-axis  scale 
factors  of  length  (LX),  starting  value  (SX),  and  increment  (IX)  in  units  of 
minutes.  An  * N '  (no)  response  will  cause  the  program  to  continue  using  the 
assumed  values. 
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The  y-axis  scales  shown  in  question  22  and  the  x-axis  scale  of 
'  question  23  were  used  to  develop  the  plots  displayed  in  Figures  D.4  and  D.5. 

|  The  listings  of  data  in  Tables  D.8  and  D.9  are  produced  as  the  corresponding 

i 

j  plot  is  generated.  Each  tabulation  lists  all  the  data  plotted  in  the 
!  respective  figure. 

The  program  proceeds  to  generate  the  intermediate  vector  files  used  by 
I  the  DEC  PLXY-11M  plotting  routines  [50]  and  the  corresponding  data  output 
!  files.  The  two  intermediate  vector  and  output  files  produced  are  named 

i  C0MPARN.VEC;N  and  C0MPARN.0"T;M,  respecti vely ,  where  the  trailing  N  and  M  are 

i 

t  version  numbers  assigned  by  the  operating  system.  The  normalized  temperatures 
!  are  plotted  and  outputted  in  COMPARN.VEC;N  and  C0MPARN.0UT;M,  followed  by  the 

i 

Biot  numbers  in  C0MPARN.VEC;N+1  and  COMPARN.OUT;M+1.  The  vector  files  must 
|  then  be  manually  converted  to  interpretable  graphs  by  running  the  PLTCTL.TSK 

i 

I  program.  Details  on  this  program  are  contained  in  reference  50.  The 

I 

!  interpretable  graphs  and  their  corresponding  output  files  may  be  directed  to 
to  a  hard  copy  printer  using  the  RSX-11M  tasks  PIP  and  PRI  which  are  detailed 
in  reference  52. 

As  previously  Indicated,  the  dimensional  plots  of  temperature,  heat  flux, 
and  overall  heat  transfer  coefficient  and  the  non-dimensional  plots  of 
normalized  temperature  and  Biot  number  are  generated  collectively  for  any 
specified  region.  These  groupings  were  chosen  rather  than  allowing  selective 
plotting  of  a  specific  parameter  since  the  overall  heat  transfer  coefficients 
(U)  and  Biot  numbers  (BI)  are  functions  of  the  regional  temperature  and  heat 
flux.  This  dependence  of  the  U's  and  BI’s  indicated  the  desirability  of  the 
other  plots  to  verify  the  integrity  of  the  computational  routines.  This 
arrangement  allows  plots  of  specific  regional  parameters  to  be  produced  by 
printing  only  the  desired  graph,  yet  retain  the  advantages  offered  by 
verification. 
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i  Example  Production  and  Research  Runs 

I 

i 

!  The  question  numbers  of  the  previous  section  will  be  used  to  denote  the 

i 

,  question  corresponding  to  the  indicated  response.  For  the  production  mode 
example,  design  conditions  of  ambient  temperature,  depth,  and  design  mean  skin 
|  temperature  were  chosen  to  be  representative  of  the  model's  design  goals.  The 
j  experimental  data  used  in  the  research  mode  example  is  considered 
representati ve  of  the  calibrated  data  available.  The  question  flow. 

Table  D.l,  and  output.  Table  0.2,  correspond  to  the  production  mode  example. 

1  The  question  flow.  Table  0.3,  and  outputs.  Tables  D.4-D.9,  and  Figures  D.1-D.5 
|  represent  the  research  mode  example.  Further  discussion  of  these  outputs 

I 

1  follows  the  figures. 
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Table  D.l 

Production  Mode  Question  Flow 


Question  # 

Response 

1 

N 

2 

NA* 

3 

NA 

4 

F10.0 

5 

X 

6 

X 

7 

X 

8 

X 

9 

F 

10 

1 

11 

NA 

12 

NA 

13 

NA 

14 

30.0 

15 

5.0 

16 

3 

17 

2 

18 

NA 

19 

NA 

20 

NA 

21 

NA 

22 

NA 

23 

NA 

Table  0.2 

Sample  Production  Mode  Output 


BODY  REGION: 

POSTURE:  0-SIT, 1-STAND, 2=PR0NE 
DESIGN  MEAN  SKIN  TEMPERATURE: 

REFERENCE  DEPTH: 

AMBIENT  TEMPERATURE: 

PREDICTED  TEMPERATURE  FOR  REGION  3: 
CORRECTED  PREDICTED  OHTC  FOR  REGION  3: 
PREDICTED  UNIT  HEAT  FLUX  FOR  REGION  3: 
ALLOWABLE  UNIT  HEAT  FLUX  FOR  REGION  3: 
REQUIRED  SUPPLEMENTARY  HEAT  FLUX: 
PREDICTED  RATE  OF  HEAT  LOSS  FOR  REGION  3: 
ALLOWABLE  RATE  OF  HEAT  LOSS  FOR  REGION  3: 
REQUIRED  SUPPLEMENTARY  HEATING: 


3 

2 

30.00  C 
10.00  FSW 
5.00  C 

30.31  C 
3.96  W/M**2*C 
100.25  W/M**2 
49.70  W/M**2 
50.55  W/M**2 
33.35  WATTS 
16.54  WATTS 
16.82  WATTS 


*NA  indicates  Not  Appropriate,  used  to  indicate  an  unasked  question 
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Table  D.3 

Research  Mode  Question  Flow 
Question  #  Response 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


Y 
N 
N 

F10.0 

X 

X 

X 

X 

F 

1 

Y 

1.91 

DTP  1  ART.  DAT1- 

NA 

NA 

3 

2 

Y 

xtt 

N 

Y 
X 
N 


^This  file  specification  corresponds  to  the  experimental  data.  The  format 
used  in  this  direct  access  file  is  explained  in  Appendix  A. 

ttfo  produce  Figures  0.3  and  D.8,  the  scale  factors  for  the  U's  in  question  19 
must  be  changed  to  LY  =  4.0,  SY  =  0.0,  IY  =  2.0  from  LY  *  4.0,  SY  =  0.0, 

IY  «  4.0. 


Sample  Research  Mode  Output 


EXPERIMENTAL  TIME:  0.00 


BODY  REGION: 

POSTURE:  0=SIT,1=STAND,2=PR0NE 
DESIGN  MEAN  SKIN  TEMPERATURE: 

REFERENCE  DEPTH: 

AMBIENT  TEMPERATURE: 

PREDICTED  TEMPERATURE  FOR  REGION  3: 

UNCORRECTED  PREDICTED  OHTC  FOR  REGION  3: 

PREDICTED  UNIT  HEAT  FLUX  FOR  REGION  3: 

ALLOWABLE  UNIT  HEAT  FLUX  FOR  REGION  3: 

REQUIRED  SUPPLEMENTARY  HEAT  FLUX: 

PREDICTED  RATE  OF  HEAT  LOSS  FOR  REGION  3: 

ALLOWABLE  RATE  OF  HEAT  LOSS  FOR  REGION  3: 

REQUIRED  SUPPLEMENTARY  HEATING: 

WGT’ED  EXP'T  TEMP'S,  SITES  3,  5;+  FOR  REGION  3: 
WGT'ED  EXP'T  OHTC'S,  SITES  3,  5;f  FOR  REGION  3: 
WGT'ED  EXP'T  HEAT  FLUX,  SITES  3,  5;+  FOR  REGION  3: 


EXPERIMENTAL  TIME:  3.00 


BODY  REGION: 

POSTURE:  0=SIT,1=STAND,2=PR0NE 
DESIGN  MEAN  SKIN  TEMPERATURE: 

REFERENCE  DEPTH: 

AMBIENT  TEMPERATURE: 

PREDICTED  TEMPERATURE  FOR  REGION  3: 

UNCORRECTED  PREDICTED  OHTC  FOR  REGION  3: 

PREDICTED  UNIT  HEAT  FLUX  FOR  REGION  3: 

ALLOWABLE  UNIT  HEAT  FLUX  FOR  REGION  3: 

REQUIRED  SUPPLEMENTARY  HEAT  FLUX: 

PREDICTED  RATE  OF  HEAT  LOSS  FOR  REGION  3: 

ALLOWABLE  RATE  OF  HEAT  LOSS  FOR  REGION  3: 

REQUIRED  SUPPLEMENTARY  HEATING: 

WGT'ED  EXP'T  TEMP'S,  SITES  3,  5;+  FOR  REGION  3: 
WGT'ED  EXP'T  OHTC'S,  SITES  3,  5;f  FOR  REGION  3: 
WGT'ED  EXP'T  HEAT  FLUX,  SITES  3,  5;f  FOR  REGION  3: 


3 

2 

34.03  C 
10.00  FSW 
3.93  C 

34.34  C 
1.75  W/M**2*C 
53.23  W/M**2 
49.70  W/M**2 
3.53  W/M**2 
17.71  WATTS 
16.54  WATTS 
1.17  WATTS 
34.11  C 
0.50  W/M**2*C 
15.14  W/M**2 


3 

2 

34.59  C 
10.00  FSW 
3.95  C 

34.90  C 
1.75  W/M**2*C 
54.21  W/M**2 
49.70  W/M**2 
4.51  W/M**2 
18.04  WATTS 
16.54  WATTS 
1.50  WATTS 
34.58  C 
0.34  W/M**2*C 
10.23  W/M**2 


■^Sensor  sites  (3,5)  refer  to  the  experimental  segments  of  Figure  2  and 
Table  1. 
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Table  D.5 

Experimental  (T-EXPT)  and  Predicted  (T-PRED)  Temperature 
Values  (°C)  as  a  Function  of  Time  as  Plotted  in  Figure  D.l. 


ABDOMEN 

LY:  5.00  SY:  20.00  IY:  4.00 


INDICATES 

POINT  NOT  PLOTTED;  ITS  VALUE 

IS  <=  0  OR 

TIME 

T-EXPT 

T-PRED 

0.00 

34.11 

34.34 

3.00 

34.58 

34.90 

6.00 

34.68 

35.20 

9.00 

34.59 

34.61 

12.00 

34.05 

33.31 

15.00 

33.41 

32.52 

18.00 

32.87 

31.83 

21.00 

32.04 

30.53 

24.00 

31.79 

30.12 

27.00 

31.52 

29.73 

30.00 

31.36 

29.49 

33.00 

31.16 

29.25 

36.00 

31.00 

29.00 

39.00 

31.33 

29.34 

42.00 

31.31 

29.26 

45.00 

31.20 

29.17 

48.00 

31.20 

28.80 

51.00 

30.97 

28.59 

54.00 

30.77 

28.32 

57.00 

30.59 

28.06 

60.00 

30.50 

27.95 

63.00 

30.25 

27.81 

66.00 

30.10 

27.78 

69.00 

30.07 

27.77 

72.00 

29.94 

27.67 

75.00 

29.86 

27.65 

78.00 

29.86 

27.60 

81.00 

29.85 

27.50 

84.00 

29.83 

27.83 

87.00 

29.78 

27.50 

90.00 

29.74 

27.79 

93.00 

29.70 

27.31 

96.00 

29.69 

27.27 

99.00 

29.35 

27.13 

102.00 

29.30 

27.35 

105.00 

29.22 

26.89 

108.00 

29.06 

26.91 

111.00 

29.79 

30.28 

114.00 

30.34 

30.31 

117.00 

30.73 

31.32 

120.00 

31.17 

31.50 

123.00 

31.28 

32.10 

T1 HE  CMIN3 

Figure  D.2 _ 
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Table  D.6 

Experimental  (Q-EXPT)  and  Uncorrected  Predicted  (Q-PRED) 
Heat  Flux  Values  (W/m2)  as  a  Function  of  Time  as  Plotted 
in  Figure  D.2. 


ABDOMEN  (UNCORRECTED) 

LY:  5.00  SY:  0.00  I Y:  50.00 

*  INDICATES  POINT  NOT  PLOTTED;  ITS  VALUE  IS  <=  0  OR  <  SY 


TIME 

Q-EXPT 

Q-PRED 

0.00 

15.14 

53.23 

3.00 

10.23 

54.21 

6.00 

25.58 

54.85 

9.00 

46.88 

53.56 

12.00 

68.93 

51.02 

15.00 

97.95 

49.46 

18.00 

103.87 

48.26 

21.00 

97.71 

45.70 

24.00 

92.36 

45.11 

27.00 

88.23 

44.31 

30.00 

104.17 

44.63 

33.00 

102.86 

44.15 

36.00 

106.27 

43.71 

39.00 

96.51 

44.35 

42.00 

94.45 

44.03 

45.00 

98.43 

43.89 

48.00 

103.46 

42.75 

51.00 

104.77 

42.44 

54.00 

104.05 

41.97 

57.00 

107.14 

41.49 

60.00 

110.64 

41.29 

63.00 

109.53 

41.04 

66.00 

102.29 

41.03 

69.00 

104.05 

40.96 

72.00 

104.65 

40.73 

75.00 

101.63 

40.75 

78.00 

93.55 

40.67 

81.00 

102.05 

40.38 

84.00 

105.58 

41.28 

87.00 

108.81 

40.64 

90.00 

106.54 

41.11 

93.00 

110.13 

40.24 

96.00 

112.22 

40.23 

99.00 

106.15 

39.91 

102.00 

105.88 

40.37 

105.00 

118.15 

39.55 

108.00 

95.47 

39.39 

111.00 

75.90 

47.11 

114.00 

60.94 

47.15 

117.00 

53.52 

48.99 

120.00 

40.99 

49.46 

123.00 

46.82 

50.99 
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Table  D.7 

Experimental  (U-EXPT)  and  Uncorrected  Predicted  (U-PRED)  Overall 
Heat  Transfer  Coefficient  Values  (W/m2°C)  as  a  Function  of  Time 
as  Plotted  in  Figure  D.3. 


ABDOMEN  (UNCORRECTED) 

LY:  4.00  SY:  0.00  IY:  2.00 


INDICATES 

POINT  NOT  PLOTTED;  ITS  VALUE 

IS  <=  0  OR 

TIME 

U-EXPT 

U-PRED 

0.00 

0.50 

1.75 

3.00 

0.34 

1.75 

6.00 

0.83 

1.75 

9.00 

1.53 

1.75 

12.00 

2.30 

1.75 

15.00 

3.36 

1.75 

18.00 

3.62 

1.74 

21.00 

3.52 

1.74 

24.00 

3.34 

1.74 

27.00 

3.24 

1.74 

30.00 

3.77 

1.74 

33.00 

3.76 

1.74 

36.00 

3.91 

1.73 

39.00 

3.50 

1.74 

42.00 

3.44 

1.74 

45.00 

3.60 

1.74 

48.00 

3.83 

1.74 

51.00 

3.90 

1.74 

54.00 

3.91 

1.73 

57.00 

4.05 

1.73 

60.00 

4.19 

1.73 

63.00 

4.19 

1.73 

66.00 

3.92 

1.73 

69.00 

4.00 

1.73 

72.00 

4.05 

1.73 

75.00 

3.94 

1.73 

78.00 

3.62 

1.73 

81.00 

3.97 

1.73 

84.00 

4.08 

1.73 

87.00 

4.21 

1.73 

90.00 

4.14 

1.73 

93.00 

4.29 

1.73 

96.00 

4.35 

1.73 

99.00 

4.19 

1.73 

102.00 

4.18 

1.73 

105.00 

4.67 

1.73 

108.00 

3.82 

1.73 

111.00 

2.83 

1.73 

114.00 

2.23 

1.73 

117.00 

1.93 

1.74 

120.00 

1.45 

1.74 

123.00 

1.62 

1.73 
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Figure  D.4.  Plots  of  Experimental  Normalized  (TN-EXPT)  and  Predicted 
Normalized  (TN-PRED)  Temperatures  for  the  Abdomen. 


TIME  (MIND 
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Table  D.8 

Experimental  (TN-EXPT)  and  Predicted  (TN-PRED)  Normalized 
Temperature  Values  (Dimensionless)  as  a  Function  of  Time 
as  Plotted  in  Figure  D.4. 


LY: 


4.00 

SY:  0.50  IY: 

0.25 

IS  <=  0  OR 

iICATES 

POINT  NOT  PLOTTED;  ITS 

VALUE 

TIME 

TN-EXPT 

TN-PRED 

0.00 

1.00 

1.01 

3.00 

1.00 

1.01 

6.00 

0.99 

1.01 

9.00 

1.01 

1.01 

12.00 

1.04 

1.01 

15.00 

1.04 

1.01 

18.00 

1.05 

1.01 

21.00 

1.07 

1.01 

24.00 

1.08 

1.01 

27.00 

1.08 

1.01 

30.00 

1.09 

1.01 

33.00 

1.09 

1.01 

36.00 

1.09 

1.01 

39.00 

1.09 

1.01 

42.00 

1.09 

1.01 

45.00 

1.09 

1.01 

48.00 

1.11 

1.01 

51.00 

1.11 

1.01 

54.00 

1.12 

1.01 

57.00 

1.12 

1.01 

60.00 

1.12 

1.01 

63.00 

1.12 

1.01 

66.00 

1.11 

1.01 

69.00 

1.11 

1.01 

72.00 

1.11 

1.01 

75.00 

1.11 

1.01 

78.00 

1.11 

1.01 

81.00 

1.12 

1.01 

84.00 

1.10 

1.01 

87.00 

1.11 

1.01 

90.00 

1.10 

1.01 

93.00 

1.12 

1.01 

96.00 

1.12 

1.01 

99.00 

1.11 

1.01 

102.00 

1.10 

1.01 

105.00 

1.12 

1.01 

108.00 

1.11 

1.01 

111.00 

0.99 

1.01 

114.00 

1.01 

1.01 

117.00 

0.99 

1.01 

120.00 

1.00 

1.01 

123.00 

0.98 

1.01 

<  SY 


2 


Figure  D.5.  Plots  of  Experimental  Biot  (BI-EXPT)  and  Uncorrected  Predicted 
Biot  (8I-PRED)  Numbers  for  the  Abdomen. 


TIME  (HIND 
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Table  D.9 

Experimental  (8I-EXPT)  and  Uncorrected  Predicted  (BI-PRED) 
Biot  Number  Values  (Dimensionless)  as  a  Function  of  Time  as 
Plotted  in  Figure  D.5. 


ABDOMEN  (UNCORRECTED) 

LY:  4.00  SY:  0.00  IY:  10.00 


INDICATES 

POINT  NOT  PLOTTED;  ITS  VALUE 

IS  <=  0  OR 

TIME 

BI-EXPT 

BI-PRED 

0.00 

2.89 

10.11 

3.00 

1.94 

10.11 

6.00 

4.80 

10.11 

9.00 

8.86 

10.11 

12.00 

13.29 

10.11 

15.00 

19.39 

10.11 

18.00 

20.94 

10.11 

21.00 

20.39 

10.11 

24.00 

19.37 

10.10 

27.00 

18.75 

10.10 

30.00 

21.87 

10.09 

33.00 

21.79 

10.09 

36.00 

22.66 

10.09 

39.00 

20.28 

10.09 

42.00 

19.96 

10.09 

45.00 

20.88 

10.09 

48.00 

22.18 

10.10 

51.00 

22.62 

10.10 

54.00 

22.66 

10.10 

57.00 

23.47 

10.10 

60.00 

24.32 

10.10 

63.00 

24.31 

10.10 

66.00 

22.77 

10.10 

69.00 

23.23 

10.10 

72.00 

23.52 

10.10 

75.00 

22.88 

10.10 

78.00 

21.03 

10.10 

81.00 

23.05 

10.10 

84.00 

23.68 

10.09 

87.00 

24.46 

10.09 

90.00 

24.03 

10.09 

93.00 

24.90 

10.09 

96.00 

25.30 

10.09 

99.00 

24.37 

10.09 

102.00 

24.32 

10.09 

105.00 

27.17 

10.09 

108.00 

22.24 

10.09 

111.00 

16.47 

10.07 

114.00 

12.96 

10.07 

117.00 

11.22 

10.08 

120.00 

8.41 

10.07 

123.00 

9.41 

10.06 

Both  the  production  and  research  runs  assume  that  the  diver  was  in  a 
prone  position,  and  the  data  calculated  in  both  cases  was  for  the  abdomen. 
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region  3  (Fig.  1).  The  prone  posture  was  chosen  since  the  wet  experimental 
data  was  recorded  from  mostly  prone  divers.  The  abdomen  was  used  since  it  is 
one  of  the  principal  regions  for  which  the  experimental  data  was  considered 
reliable.  Thus,  this  region  should  provide  an  accurate  basis  for  comparison 
of  our  predicted  values  with  the  experimental  ones. 

Table  D.2  is  the  only  output  generated  by  the  production  mode,  and 
Table  D.4  is  the  comparable  research  mode  output.  Comparison  of  Tables  D.2 
and  D.4  reveals  that  the  parameters  printed  are  basically  the  same  except  that 
Table  D.2  refers  to  the  overall  heat  transfer  coefficient  (OHTC)  as  corrected, 
where  Table  D.4  refers  to  it  as  uncorrected;  Table  D.4  also  includes  the 
experimental  data  and  the  time  at  which  the  data  was  recorded.  Only  the  first 
two  of  fifty-six  time  increments  taken  from  the  experimental  study  DTP1ART  are 
shown  in  Table  D.4.  Figures  D.1-D.3  are  the  regional  dimensional  skin 
temperature,  heat  flux,  and  overall  heat  transfer  coefficient  plots, 
respectively,  produced  to  display  the  comparison  between  dimensional 
experimental  and  predicted  data.  The  data  actually  plotted  in  Figures  D.1-D.3 
is  listed  in  Tables  D.5-D.7,  respectively.  Figures  D.4  and  D.5  are  the 
regional  non-dimensional  normalized  skin  temperature  and  Biot  number  plots, 
respectively,  which  are  produced  to  display  the  comparison  between 
dimensionless  experimental  and  predicted  data.  The  data  actually  plotted  in 
Figures  D.4  and  D.5  is  listed  in  Tables  D.8  and  D.9,  respectively. 

Figures  D.1-D.5  and  Tables  D.5-D.9  can  be  produced  only  when  a  comparison  of 
temperatures,  heat  fluxes,  and  overall  heat  transfer  coefficients  is  indicated 
by  a  ' Y *  (yes)  response  to  question  11.  These  plots  have  no  counterpart  in 
the  production  mode. 
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The  assumed  scale  factors  displayed  in  questions  19,  20,  22,  and  23  were 
chosen  to  allow  direct  comparisons  between  regions  and  across  studies.  The 
assumed  y-axis  scales  will  handle  all  of  the  non-anomalous  data  taken  from  the 
three  wet,  air  breathing  studies  which  were  used  in  verifying  this  diver  heat 
loss  program.  The  assumed  x-axis  scales,  as  'ted,  accommodate  two  of  the 
experimental  studies  and  will  handle  the  other  study  if  the  axis  length  (LX) 
is  increased. 

The  examples  shown  here  are  two  of  the  primary  reports  produced  by  the 
program,  but  they  are  not  the  only  variations  possible.  By  selectively 
answering  certain  questions  negatively  instead  of  affirmatively  and  vise 
versa,  the  operator  may  cause  different  forms  of  output  to  be  generated.  For 
example,  if  the  response  to  question  2  is  a  * Y *  (yes)  in  the  research  mode 
question  flow  (Table  D.3)  sample,  then  the  overall  heat  transfer  coefficients 
are  corrected  by  applying  the  biasing  factors  and  Figures  D.6-D.10  and 
Tables  D.10-D.15  are  produced  instead  of  Figures  D.1-D.5  and  Tables  D. 4-0.9, 
respectively.  If  questions  18  or  21  were  answered  with  ' N *  (no),  then  no 
dimensional  or  non-dimensional  plots,  respectively,  would  be  produced.  In 
both  modes  If  the  number  of  nodes  (question  10)  is  entered  as  a  value  greater 
than  one,  then  the  output  files  would  show  the  results  of  the  computations  for 
each  node. 
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Table  0.10 

Sample  Research  Mode  Output  With  Corrected  Overall  Heat  Transfer  Coefficients 


EXPERIMENTAL  TIME:  0.00 


BODY  REGION:  3 
POSTURE:  0=SIT,1=STAND,2=PR0NE  2 
DESIGN  MEAN  SKIN  TEMPERATURE:  34.03  C 
REFERENCE  DEPTH:  10.00  FSW 
AMBIENT  TEMPERATURE:  3.93  C 


PREDICTED  TEMPERATURE  FOR  REGION  3: 

CORRECTED  PREDICTED  OHTC  FOR  REGION  3: 

PREDICTED  UNIT  HEAT  FLUX  FOR  REGION  3: 

ALLOWABLE  UNIT  HEAT  FLUX  FOR  REGION  3: 

REQUIRED  SUPPLEMENTARY  HEAT  FLUX: 

PREDICTED  RATE  OF  HEAT  LOSS  FOR  REGION  3: 

ALLOWABLE  RATE  OF  HEAT  LOSS  FOR  REGION  3: 

REQUIRED  SUPPLEMENTARY  HEATING: 

WGT'ED  EXP'T  TEMP'S,  SITES  3,  S;*  FOR  REGION  3: 
WGT'ED  EXP'T  OHTC'S,  SITES  3,  S;f  FOR  REGION  3: 
WGT'ED  EXP'T  HEAT  FLUX,  SITES  3,  5;+  FOR  REGION  3: 


34.34  C 
3.97  W/M**2*C 
120.83  W/M**2 
49.70  W/M**2 

71.13  W/M**2 
40.20  WATTS 
16.54  WATTS 
23.66  WATTS 

34.11  C 
0.50  W/M**2*C 

15.14  W/M**2 


EXPERIMENTAL  TIME:  3.00 


BODY  REGION:  3 
POSTURE:  0=SIT,1=STAND,2=PR0NE  2 
DESIGN  MEAN  SKIN  TEMPERATURE:  34.59  C 
REFERENCE  DEPTH:  10.00  FSW 
AMBIENT  TEMPERATURE:  3.95  C 


PREDICTED  TEMPERATURE  FOR  REGION  3: 

CORRECTED  PREDICTED  OHTC  FOR  REGION  3: 

PREDICTED  UNIT  HEAT  FLUX  FOR  REGION  3: 

ALLOWABLE  UNIT  HEAT  FLUX  FOR  REGION  3: 

REQUIRED  SUPPLEMENTARY  HEAT  FLUX' 

PREDICTED  RATE  OF  HEAT  LOSS  FOR  REGION  3: 

ALLOWABLE  RATE  OF  HEAT  LOSS  FOR  REGION  3: 

REQUIRED  SUPPLEMENTARY  HEATING: 

WGT'ED  EXP'T  TEMP'S,  SITES  3,  5;+  FOR  REGION  3: 
WGT'ED  EXP'T  OHTC'S,  SITES  3,  5;f  FOR  REGION  3: 
WGT'ED  EXP'T  HEAT  FLUX,  SITES  3,  5;1-  FOR  REGION  3: 


34.90  C 
3.98  W/M**2*C 
123.06  W/M**2 
49.70  W/M**2 
73.36  W/M**2 
40.94  WATTS 
16.54  WATTS 
24.41  WATTS 
34.58  C 
0.34  W/M**2*C 
10.23  W/M**2 


^Sensor  sites  (3,5)  refer  to  the  experimental  segments  of  Figure  2  and 
Table  1. 
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Figure  D.6.  Plots  of  Experimental  (T-EXPT)  and  Predicted  (T-PRED) 
Temperatures  (°C)  for  the  Abdomen. 


TIME  CMIND 

Figure  D.6 
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Table  D.ll 

Experimental  {T-EXPT)  and  Predicted  (T-PRED)  Temperature 
Values  (°C)  as  a  Function  of  Time  as  Plotted  in  Figure  D.6. 


ABDOMEN 

LY:  5.00  SY:  20.00  IY:  4.00 


INDICATES 

POINT  NOT  PLOTTED;  ITS  VALUE 

IS  <=  0  OR 

TIME 

T-EXPT 

T-PRED 

0.00 

34.11 

34.34 

3.00 

34.58 

34.90 

6.00 

34.68 

35.20 

9.00 

34.59 

34.61 

12.00 

34.05 

33.31 

15.00 

33.41 

32.52 

18.00 

32.87 

31.83 

21.00 

32.04 

30.53 

24.00 

31.79 

30.12 

27.00 

31.52 

29.73 

30.00 

31.36 

29.49 

33.00 

31.16 

29.25 

36.00 

31.00 

29.00 

39.00 

31.33 

29.34 

42.00 

31.31 

29.26 

45.00 

31.20 

29.17 

48.00 

31.20 

28.80 

51.00 

30.97 

28.59 

54.00 

30.77 

28.32 

57.00 

30.59 

28.06 

60.00 

30.50 

27.95 

63.00 

30.25 

27.81 

66.00 

30.10 

27.78 

69.00 

30.07 

27.77 

72.00 

29.94 

27.67 

75.00 

29.86 

27.65 

78.00 

29.86 

27.60 

81.00 

29.85 

27.50 

84.00 

29.83 

27.83 

87.00 

29.78 

27.50 

90.00 

29.74 

27.79 

93.00 

29.70 

27.31 

96.00 

29.69 

27.27 

99.00 

29.35 

27.13 

102.00 

29.30 

27.35 

105.00 

29.22 

26.89 

108.00 

29.06 

26.91 

111.00 

29.79 

30.28 

114.00 

30.34 

30.31 

117.00 

30.73 

31.32 

120.00 

31.17 

31.50 

123.00 

31.28 

32.10 
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!  Figure  0.7.  Plots  of  Experimental  (Q-EXPT)  and  Corrected  Predicted  (Q-PRED) 
Heat  Flux  (W/M^)  for  the  Abdomen. 


!• 
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Table  0.12 

Experimental  (Q-EXPT)  and  Corrected  Predicted  (Q-PRED) 
Heat  Flux  Values  (W/M^)  as  a  Function  of  Time  as  Plotted 
in  Figure  D.7. 


ABDOMEN  (CORRECTED) 

LY:  5.00  SY:  0.00  IY:  50.00 

*  INDICATES  POINT  NOT  PLOTTED;  ITS  VALUE  IS  <=  0  OR  <  SY 


TIME 

Q-EXPT 

Q-PRED 

0.00 

15.14 

120.83 

3.00 

10.23 

123.06 

6.00 

25.58 

124.52 

9.00 

46.88 

121.58 

12.00 

68.93 

115.81 

15.00 

97.95 

112.28 

18.00 

103.87 

109.56 

21.00 

97.71 

103.73 

24.00 

92.36 

102.39 

27.00 

88.23 

100.58 

30.00 

104.17 

101.32 

33.00 

102.86 

100.23 

36.00 

106.27 

99.23 

39.00 

96.51 

100.68 

42.00 

94.45 

99.94 

45.00 

98.43 

99.63 

48.00 

103.46 

97.05 

51.00 

104.77 

96.34 

54.00 

104.05 

95.26 

57.00 

107.14 

94.18 

60.00 

110.64 

93.74 

63.00 

109.53 

93.17 

66.00 

102.29 

93.15 

69.00 

104.05 

92.99 

72.00 

104.65 

92.47 

75.00 

101.63 

92.51 

78.00 

93.55 

92.32 

81.00 

102.05 

91.66 

84.00 

105.58 

93.71 

87.00 

108.81 

92.26 

90.00 

106.54 

93.31 

93.00 

110.13 

91.34 

96.00 

112.22 

91.33 

99.00 

106.15 

90.60 

102.00 

105.88 

91.64 

105.00 

118.15 

89.78 

108.00 

95.47 

89.41 

111.00 

75.90 

106.94 

114.00 

60.94 

107.03 

117.00 

53.52 

111.20 

120.00 

40.99 

112.28 

123.00 

46.82 

115.76 

Figure  D.8.  Plots  of  Experimental  (U-EXPT)  and  Corrected  Predicted  (U-PRED) 
Overall  Heat  Transfer  Coefficient  (OHTC  in  W/M2oC)  for  the 
Abdomen. 
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Table  D.13 

Experimental  (U-EXPT)  and  Corrected  Predicted  (U-PRED)  Overall 
Heat  Transfer  Coefficient  Values  (W/M2oC)  as  a  Function  of  Time 
as  Plotted  in  Figure  D.8. 


ABDOMEN  (CORRECTED) 

LY:  4.00  SY :  0.00  IY:  2.00 


INDICATES 

POINT  NOT  PLOTTED;  ITS  VALUE 

IS  <=  0  OR 

TIME 

U-EXPT 

U-PRED 

0.00 

0.50 

3.97 

3.00 

0.34 

3.98 

6.00 

0.83 

3.98 

9.00 

1.53 

3.98 

12.00 

2.30 

3.97 

15.00 

3.36 

3.97 

18.00 

3.62 

3  96 

21.00 

3.52 

3.95 

24.00 

3.34 

3.95 

27.00 

3.24 

3.95 

30.00 

3.77 

3.94 

33.00 

3.76 

3.94 

36.00 

3.91 

3.94 

39.00 

3.50 

3.94 

42.00 

3.44 

3.94 

45.00 

3.60 

3.94 

48.00 

3.83 

3.94 

51.00 

3.90 

3.94 

54.00 

3.91 

3.94 

57.00 

4.05 

3.94 

60.00 

4.19 

3.94 

63.00 

4.19 

3.93 

66.00 

3.92 

3.93 

69.00 

4.00 

3.93 

72.00 

4.05 

3.93 

75.00 

3.94 

3.93 

78.00 

3.62 

3.93 

81.00 

3.97 

3.93 

84.00 

4.08 

3.93 

87.00 

4.21 

3.93 

90.00 

4.14 

3.93 

93.00 

4.29 

3.93 

96.00 

4.35 

3.93 

99.00 

4.19 

3.93 

102.00 

4.18 

3.93 

105.00 

4.67 

3.93 

108.00 

3.82 

3.93 

111.00 

2.83 

3.93 

114.00 

2.23 

3.93 

117.00 

1.93 

3.94 

120.00 

1.45 

3.94 

123.00 

1.62 

3.94 
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Figure  D. 


.  Plots  of  Experimental  Normalized  (TN-EXPT)  and  Predicted 
Normalized  (TN-PRED)  Temperatures  for  the  Abdomen. 


Table  D.14 


1 

Experimental  (TN-EXPT)  and  Predicted  (TN-PRED)  Normalized 
Temperature  Values  (Dimensionless)  as  a  Function  of  Time 
as  Plotted  in  Figure  D.9. 


ABDOMEN 

LY:  4.00  SY:  0.50  IY:  0.25 

*  INDICATES  POINT  NOT  PLOTTED;  ITS  VALUE  IS  <=  0  OR  <  SY 
TIME  TN-EXPT  TN-PRED 


m 


m 
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Figure  D.10. 


Plots  of  Experimental  Biot  (BI-EXPT)  and  Corrected  Predicted 
Biot  (BI-PRED)  Numbers  for  the  Abdomen. 


I 


Table  D.15 


Experimental  (BI-EXPT)  and  Corrected  Predicted  (BI-PRED) 
Biot  Number  Values  (Dimensionless)  as  a  Function  of  Time  as 
Plotted  in  Figure  D.10. 


ABDOMEN  (CORRECTED) 

LY:  4.00  SY:  0.00  IY:  10.00 


INDICATES 

POINT  NOT  PLOTTED;  ITS  VALUE 

IS  <=  0  OR 

TIME 

BI-EXPT 

BI-PRED 

0.00 

2.89 

22.94 

3.00 

1.94 

22.94 

6.00 

4.80 

22.94 

9.00 

8.86 

22.94 

12.00 

13.29 

22.94 

15.00 

19.39 

22.94 

18.00 

20.94 

22.94 

21.00 

20.39 

22.94 

24.00 

19.37 

22.93 

27.00 

18.75 

22.93 

30.00 

21.87 

22.91 

33.00 

21.79 

22.91 

36.00 

22.66 

22.91 

39.00 

20.28 

22.91 

42.00 

19.96 

22.91 

45.00 

20.88 

22.91 

48.00 

22.18 

22.93 

51.00 

22.62 

22.92 

54.00 

22.66 

22.92 

57.00 

23.47 

22.92 

60.00 

24.32 

22.92 

63.00 

24.31 

22.92 

66.00 

22.77 

22.92 

69.00 

23.23 

22.92 

72.00 

23.52 

22.92 

75.00 

22.88 

22.92 

78.00 

21.03 

22.92 

81.00 

23.05 

22.92 

84.00 

23.68 

22.91 

87.00 

24.46 

22.91 

90.00 

24.03 

22.92 

93.00 

24.90 

22.91 

96.00 

25.30 

22.91 

99.00 

24.37 

22.91 

102.00 

24.32 

22.91 

APPENDIX  E 
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Main  Program 


Define  body  dimensions,  properties  of  air, 
temperature  prediction  coefficients,  suit 
properties,  allowable  regional  heat  flux, 
correlation  between  12  segment  Hody  map  and  9 
region  model,  plotting  variables,  and  various 
dependent  variables. 


it  Determine  if  operator  is  a  research  or 
production  user. 

(REU=Y-Research,  N-Production,  X-Terminate 
program) 


IF  REtMX  STOP 


IF  RElhN  GO  TO  4 


2  Determine  if  corrected  or  uncorrected 
overall  heat  coefficients  are  desired. 

(If  corrected  set  REU  equal  to  S  otherwise 
do  not  alter.) 


3  Determine  if  debug  prints  are  desired. 


4  Input  ambient  depth  and  units  as  M,F,P# 
(RDU-M-MSW,  F-FSW,  P-PSIG;  RD*Numerical 
value). 


5  Verify  current  sea  level  garment  ensemble 
properties,  collect  new  values,  or 
re-lnltlalize  properties  to  the  program 
assigned  values.  (See  Function  RE  I NIT . ) 


‘•’Numeric  labels  correspond  to  the  question  numbers  (1-23)  of  Appendix  D. 
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6  Verify  current  regional  undergarment 
thicknesses  (in  CM),  collect  new 
multipliers,  or  re-initialize  multipliers  to 
the  program  assigned  values.  (See  Function 
REINIT. ) 


7  Verify  current  allowable  regional  heat 
fluxes  (W/M2),  collect  new  value,  or 
re-initialize  heat  fluxes  to  the  program 
assigned  values.  (See  Function  REINIT.) 


8  Verify  current  regional  biasing  factors 
(dimensionless),  collect  new  values,  or 
re-initialize  biasing  factors  to  the  program 
assigned  values.  (See  Function  REINIT.) 


9  Input  where  to  write  output  file. 

(T-Screen,  F-DMPDAT.L ST) 

10  Input  number  of  finite  difference  nodes  ( NN) . 


IF  RElhN  GO  TO  14 


11  Determine  if  a  comparison  of  predicted  and 
experimental  data  is  to  be  performed. 
(QCOMP=Y-Perform  comparison,  N-No  comparison) 


IF  QC0MP=N  GO  TO  14 


I 

12  Input  total  surface  area  of  the  experimental 

subject  (TAR).  : 


13  Input  the  name  of  the  direct  access  file 
containing  the  experimental  data. 

(See  Appendix  A.) 
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Open  direct  access  data  file  specified  in 
question  13. 


IF  QC0MP=Y  GO  TO  16 


14  Input  design  mean  skin  temperature  (TDMS). 


15  Input  ambient  temperature  (TA). 


16  Determine  region  or  regions  for  which  to 
perform  calculations  (BR). 

17  Determine  the  subject's  posture. 
(ATT=0-Sitting,  1-Standing,  2-Prone) 

Do  to  Z  for  each  region  specified: 

Open  output  file  specified  in  question  9. 

IF  QC0MP=N  GO  TO  C 

Do  to  X  for  each  experimental  time: 


Determine  TDMS  by  using  Hody's  mean  skin 
temperature,  Equation  8  of  Chapter  IV,  and 
TA  from  the  experimental  data. 
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C+  IF  BR*1  or  BR*9  or  (BR*4  and  ATT*0)  GO  TO  D 
(Note;  BR=1  and  BR=9  imply  spheres  and  are 
treated  as  single  node  regions  for  all 
postures.  BR=4  and  ATT=0  indicate  a 
horizontal  cylinder,  the  thigh,  while  the 
subject  is  sitting.  For  this  case  the  thigh 
is  treated  as  a  single  node  region.) 


SET  J=1 

GO  TO  E 


i 

I 

i 

i 

I 


D  Do  to  W 


J=1  to  number  of  nodes  (NN): 


E  Calculate  the  nodal  overall  heat  transfer 
coefficient  for  the  garment  ensemble  (See 
function  subroutine  OHTC.)  by: 


U  =  OHTC(J) 


IF  REU  =  Y  GO  TO  F 

Note:  REU  =  S  indicates  the  research  mode 
with  corrected  U's, 

REU  *  Y  indicates  the  research  mode 
with  uncorrected  U's, 

REU  =  N  indicates  the  production  mode 
which  always  corrects  U's. 


^Alphabetic  symbols  are  used  to  label  all  statements  except  for  those  which 
correspond  to  the  questions  (1-23)  of  Appendix  D. 
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U  =  U  *  BF(BR) 

BF(BR)  =  Array  containing  the  empirically 
derived  baising  factors. 

(See  Chapter  VII.) 


F  Sum  nodal  U  values  and  increment  occurrence 
counter  by: 


US  =  US  +  U 
UN  =  UN  +  1.0 


Calculate  the  predicted  rate  of  heat  loss 
per  unit  of  nodal  surface  area  (W/M^)  by: 

QR  =  U(T1  -  TA) 

T1  =  predicted  regional  skin  temperature. 


Add  the  rate  of  heat  loss  (watts)  from  this 
node  to  the  nodal  rate  of  heat  loss  sum  by: 

Q(BR)  =  Q(BR)  +  (QR  *  SAM(BR)/NN) 

Q(BR)  =  Variable  containing  running  sum 
for  region  BR, 

SAM  =  Array  containing  the  regional  surface 
areas  of  the  9  body  regions 
(Fig.  1  of  Chapter  I) , 

SAM(BR)  =  Variable  containing  surface  area 
of  region  BR, 

NN  =  Number  of  nodes  per  region 
(question  10). 


If  BR-1  or  8R=9  or  (BR=4  and  ATT=0)  GO  TO  G 


W  Continue  -  to  next  node 
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G  Determine  regional  heat  flux  (W/M2)  by: 


Q(BR)  =  Q(BR) 
SAM(BR) 


Determine  regional  overall  heat  transfer 
coefficient  by: 


U  =  US/UN 


Determine  regional  allowable  rate  of  heat 
loss  (watts)  by: 

QA(BR)  =  QALL(BR)  *  SAM(BR) 

QALL(BR)  =  Variable  containing  allowable 
heat  flux  (W/M2)  for  region  BR. 


Determine  regional  predicted  heat  loss 
(watts)  by: 

QP(BR)  =  Q( BR )  *  SAM(BR) 


Determine  required  regional  supplementary 
rate  of  heat  loss  (watts)  by: 

QSUPP(BR)  =  QP(BR)  -  QA(BR) 


Determine  required  regional  supplementary 
heat  flux  (W/M2)  by: 

QSUP  =  Q(BR)  -  QALL(BR) 


IF  QC0MP=N  GO  TO  X 


^  A0-A119  1*7 
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fill  appropriate  portions  of  array  P  for 
this  experimental  time  with  the  regional 
predicted  skin  temperature  (Tl),  heat  flux 
(Q(BR)),  and  overall  heat  transfer 
coefficient  averaged  across  all  nodes  (U), 
also  the  design  mean  skin  (TOMS)  and  ambient 
(TA)  temperatures.  Array  P  is  used  to 
preserve  values  for  the  possibility  of  later 
plotting. 


The  layout  of  the  plotting  array  P  is  as 
described  below. 

P(I,1)  =  Experimental  time 

P(I,2)  =  Experimental  temperature  (TEXPT) 

P(I,3)  =  Predicted  temperature  (Tl) 

P(I,4)  =  Experimental  heat  flux  (QEXPT) 

P( 1,5)  =  Predicted  heat  flux  (Q(BR)) 
P(I,6)  =  Experimental  overall  heat 

transfer  coefficient  (UEXPT) 

P( 1 ,7)  =  Predicted  overall  heat  transfer 
coefficient  (U) 

P( I ,8)  =  Design  mean  skin  temperature 
(TDMS) 

P(I,9)  =  Ambient  temperature  (TA) 

Susbcript  I  is  incremented  by  one  each  time 
a  new  time  record"'  is  processed  (i.e.,  1*1 
indicates  time  =  0.0,  1=2  indicates 
time  =  3.0,  1=3  indicates  time  *  6.0; 
assuming  a  time  increment  of  3.0  minutes). 


Initialize  summing  variables  as  zero: 

TEXPT  =  0.0 
SWGT  =0.0 
QEXPT  *  0.0 
SWGTQ  =0.0 
UEXPT  =  0.0 
SWGTU  =0.0 


*See  Foreword  for  the  connotation  of  time  record 
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Do  to  J  1=1,2: 


SET  M=C0R(BR,L) 

COR  =  The  array  containing  the 
correspondence  between  the  9  region* 
model  man  and  the  12  segment**  Hody  man. 
Each  row  of  array  COR  corresponds  to  a 
body  region  of  the  model  man. 

For  BR=3,  the  abdomen, 

COR (3,1)  =  3-Hody's  abdomen, 

C0R(3,2)  =  5-Hody's  lower  back. 

For  BR=6,  the  feet, 

C0R(6,1)  =  12-Hody's  feet, 

C0R(6,2)  =  -1. 

The  -1  indicates  that  the  correspondence 
is  one  to  one. 


IF  M=-l  GO  TO  J 


IF  EXP(M+13)=0  GO  TO  H 

EXP(M+13)  =  Experimental  temperature  for 
Hody  segment  M. 


Add  weighted  temperature  for  segment  M  into 
regional  sum  and  increment  occurrence 
counter  by: 

TEXPT  =  TEXPT  +  (EXP(M+13)  *  WGT(M)) 

SWGT  =  SWGT  +  WGT(M) 

WGT(M)  =  Variable  containing  the  Hody 
surface  area  fraction  for  Hody  segment  M. 


*A11  references  to  a  region  Indicate  one  of  the  9  regions  of  the  developed 
model  man  (Fig.  1  of  Chapter  I). 

**A11  references  to  a  segment  Indicate  one  of  the  12  segments  used  to  record 
the  experimental  data  (Fig.  2  of  Chapter  I). 
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H  IF  EXP(M+l)-0  GO  TO  I 

EXP(M+1)  *  Experimental  rate  of  heat  loss 
for  Hody  segment  M. 


Add  rate  of  heat  loss  for  segment  M  into 
regional  sum  and  increment  occurrence 
counter  by: 

QEXPT  =  QEXPT  +  EXP(M+1) 

SWGTQ  =  SWGTQ  +  WGT(M) 


I  IF  EXP(M+1) =0  OR  EXP(M+13)=0  GO  TO  J 


Add  overall  heat  transfer  coefficient  term 
Into  regional  sum  and  increment  occurrence 
counter  by: 

UEXPT  =  UEXPT  +  (  EXP(M+1)  ) 
EXP(M+13)  -  TA 

SWGTU  =  SWGTU  +  WGT(M) 

J  Continue  -  to  next  value  of  L. 


IF  SWGT=0  GO  TO  K 


TEXPT  *  TEXPT 
SWGT 


K  IF  SWGTQ=0  GO  TO  M 


QEXPT  *  QEXPT 

SWGTQ  *  TAR 


M 


IF  SWGTlhO  GO  TO  N 


UEXPT  =  (  _  UEXPT  _.  ) 
SWGTU  *  TAR 


N  Fill  the  appropriate  portions  of  array  P  for 
this  experimental  time  (P( I ,1) )  with  the 
regional  experimental  skin  temperature 
(TEXPT  in  P(I,2)),  surface  heat  flux  (QEXPT 
in  P(I,4)),  and  overall  heat  transfer 
coefficient  (UEXPT  in  P(I,6))  for  possible 
later  plotting.  (See  the  previous 
description  of  array  P  for  details.) 


X  Continue  -  to  next  experimental  time. 


IF  QC0MP*N  GO  TO  Z 


18  Determine  If  plots  comparing  dimensional 
experimental  and  predicted  skin 
temperatures,  heat  fluxes,  or  overall  heat 
transfer  coefficients  are  desired. 

(PLD=  Y-Produce  plots,  N-No  plots) 


IF  PLD=N  GO  TO  21 


19  Verify  assumed  y-axls  scale  factors  for  the 
three  different  dimensional  plots  or  enter 
new  values. 


20  Verify  assumed  x-axis  scale  factors  (one 
set  of  scale  factors  for  all  three 
dimensional  plots)  or  enter  new  values. 


280 


Produce  three  dimensional  plots  comparing 
predicted  and  experimental  values  of 
regional  skin  temperature,  heat  flux,  and 
overall  heat  transfer  coefficient  with  the 
scales  defined  in  questions  19  and  20. 


21  Determine  if  plots  comparing  dimensionless 
predicted  and  experimental  values  of 
regional  normalized  skin  temperature  and 
Biot  number  are  desired. 

(PLN=Y-Produce  plots,  N-No  plots) 


22  Verify  assumed  y-axis  scale  factors  for  both 
of  the  non-dimensional  plots  or  enter  new 
values. 


23  Verify  assumed  x-axis  scale  factors  (one  set 
of  scale  factors  for  both  dimensionless 
plots)  or  enter  new  values. 


Produce  two  dimensionless  plots  comparing 
predicted  and  experimental  values  of 
regional  normalized  skin  temperature  and 
Blot  number  using  the  scales  defined  in 
questions  22  and  23. 


Z  Close  output  file  specified  in  question  9. 


Continue 


GO  TO  1 


STOP 
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Function  REINIT(I) 


Declare  values  passed  to  subroutine. 


Define  default  values  for  the  sea  level 
garment  ensemble  properties  (1=1),  regional 
undergarment  thicknesses  (1=2),  allowable 
regional  heat  fluxes  (1=3),  and  the  regional 
biasing  factors  (1=4). 


IF  1=1  GO  TO  A 
IF  1=2  GO  TO  B 
IF  1=3  GO  TO  C 
IF  1=4  GO  TO  D 


RETURN 


A  Push  assumed  default  values  of  the  sea  level 
garment  ensemble  properties  into  the 
appropriate  variables  which  destroys  their 
current  contents. 


RETURN 


B  Push  assumed  default  values  of  the  regional 
undergarment  multipliers  into  the 
appropriate  array  variable  which  destroys 
their  current  contents. 


RETURN 


C  Push  assumed  default  values  of  the  allowable 
regional  heat  fluxes  Into  the  appropriate 
array  variables  which  destroys  their  current 
contents. 
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RETURN 


D  Push  assumed  default  values  of  the  regional 
biasing  factors  Into  the  appropriate  array 
variables  which  destroys  their  current 
contents. 


RETURN 
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Function  OHTC(SN) 


Declare  variables  passed  to  subroutine. 


Calculate  depth  of  regional  datum  below 
shoulder  level  (RDS),  depth  of  start  of 
nodal  element  below  the  regional  datum 
(SEP),  and  the  depth  of  the  mid-point  of  the 
nodal  element  below  the  shoulder  reference 
(RED). 


Calculate  decimal  percent  change  in 
undergarment  thickness  due  to  the 
hydrostataic  pressure  of  RED  centimeters  of 
seawater  (CSW)  at  the  mid-point  of  the  nodal 
element  (DPCT). 


Calculate  suit  entrapped  gas  temperature 
(MT).  Estimate  (MT)  by  averaging  regional 
skin  and  ambient  temperatures. 


Calculate  thermal  conductivity  ratio  (CR)  of 
air  at  sea  level  and  the  entrapped  gas  at 
depth.  See  function  TC. 


Calculate  specific  thermal  resistance  of 
undergarment  at  depth  due  to  change  in 
thermal  conductivity  of  entrapped  gas 
(SRUGA)  by: 


SRUGA  =  SRO  *  CR 

SRO  *  Specific  thermal  resistance  (CLO/CM) 
of  undergarment  at  sea  level. 
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Correct  undergarment  specific  thermal 
resistance  (SRUGA)  for  effects  of 
hydrostatic  suit  squeeze  (SRUGHA)  at  a  depth 
of  RED  (CSW)  below  the  shoulder  reference 
by: 


SRUGHA  =  SRUGA  (l  -  (DR  *  DPCT)) 

DR  =  decimal  percent  change  in  specific 
thermal  resistance  at  sea  level  per 
decimal  percent  change  in  undergarment 
thickness.  (See  Chapter  V.) 


Convert  specific  thermal  resistance  (SRUGHA) 
in  CLO/CM  to  a  thermal  resistance  in  M2oC/W 
(RUGHAJ). 

Note:  1  CLO  =  0.18  M2*HR°C/KCAL  or 
1  CLO  =  0.155  M2oC/W 


Calculate  radius  (R1  in  meters)  from  center 
line  of  region  to  skin  surface  by  region 
diameter  divided  by  2. 


Calculate  radius  (R2  in  meters)  from  region 
center  line  to  undergarment/outer  garment 
interface  by: 

R2  =  R1  +  (WUGO  *  TWUGO(BR)  *  (1  -  DPCT)) 

HUGO  =  Unit  undergarment  thickness  at 
sea  level, 

TWUGO  =  Array  containing  the  regional 
multipliers  indicating  the  number  of 
layers  of  unit  thickness  material  per 
region.  Variable  BR  indicates  region  of 
interest. 


Calculate  radius  (R3  in  meters)  from  region 
center  line  to  outer  garment/outer  boundary 
layer  interface  by  R2  plus  thickness  of 
outer  garment  (assumed  incompressible). 


Calculate  undergarment  thermal  resistance 
(RUG);  corrected  for  curvature  of  region  and 
biased  to  the  skin  surface  area  by: 

R1|R  a  R1  *  RUGHAJ  *  In  (R2/R1) 

R2  -  R1 

(Note:  In  indicates  the  logarithm  to  the 
base  e.) 


Calculate  resistance  of  outer  garment 
corrected  for  curvature  of  region  and  biased 
to  the  skin  surface  area  by: 

ROG  =  R1  *  In  (R3/R2) 

COG 

COG  =  thermal  conductivity  of  outer 
garment. 


Calculate  regional  temperature  of  outer 
garment/outer  boundary  layer  interface 
(T3  in  °C)  by  Secant  Method  with  function 
subroutine  F(T). 


Calculate  regional  convective  heat  transfer 
coefficient  for  outer  boundary  layer  (CHTC) 
(See  function  subroutine  CHTC.)  at 
temperature  T3. 


Calculate  regional  outer  boundary  layer 
resistance  (ROBl)  biased  to  the  skin  surface 
area  by: 


ROBL 


R1 

R3  *  CHTC  *  T3 
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Calculate  overall  heat  transfer  coefficient 
of  garment  ensemble  (OHTC)  biased  to  skin 
surface  area  by: 


OHTC  = 


1.0 

RUG  +  ROG  +  ROBL 


RETURN 


Function  F(T) 


Note:  This  function  is  used  by  the  Secant 
Method  to  evaluate  if  a  new  estimate  (T3) 
of  the  temperature  of  the  outer  garment's 
outer  surface  is  correct.  If  T3  is 
estimated  correctly  the  value  of  F,  below, 
will  be  approximately  zero.  T3  is  the 
variable  name  used  in  the  calling  module. 
The  call  to  this  function  appears  as  F(T3). 


Declare  passed  variables. 


Calculate  by  using  the  temperature  of  the 
outer  garment/outer  boundary  layer 
interface  (T),  which  is  passed  from 
subroutine  OHTC,  a  value  of  the  energy 
balance  F  by: 

F  =  T1  -  TA  n  -  T 

RUG  +  ROG  +  CHTC(T3,R3)  RUG  +  ROG 

T1  =  Regional  skin  temperature  passed 
from  the  calling  module  in  common, 

RUG  =  Resistance  of  undergarment  passed 
from  calling  module  in  common, 

ROG  =  Resistance  of  outer  garment  passed 
from  calling  module  in  common, 
CHTC(T3,R3)  =  Calls  Function  CHTC  to 
determine  convective  heat  transfer 
coefficient  at  radius  R3  and 
temperature  T3. 


RETURN 
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Function  CHTC(T3,R3) 


Declare  passed  variables. 


Determine  for  the  specified  subject  posture 
(ATT)  whether  the  region  is  a  vertical  or 
horizontal  cylinder,  or  a  sphere. 


If  a  vertical  cylinder,  set  the 
characteristic  length  (CL  in  meters)  to  the 
length  of  the  cylindrical  region  by: 


CL  =  B(BR,3) 

B(BR,3)  =  Variable  containing  length  of 
region  BR. 


GO  TO  A 


If  a  horizontal  cylinder  set  the 
characteristic  length  (CL  in  meters)  to  the 
diameter  of  the  cylindrical  region  by: 


CL  =  2.0  *  R3 

R3  =  Radius  to  outer  surface  of  the 
garment  ensemble. 


GO  TO  A 


If  a  sphere,  set  the  characteristic  length 
(CL  In  meters)  to  the  diameter  of  the 
spherical  region  by: 


A  Grashof/Prandtl  number  product  routine: 


Calculate  film  temperature  (TF  in  °C)  by: 

TF  _  T3  +  TA 

2.0 

T3  =  Temperature  of  outer  garment/outer 
boundary  layer  interface  passed  from 
Function  OHTC. 

TA  =  Ambient  temperature  passed  from  Main 
program. 


Calculate  a  value  for  property  grouping 

ALPHA  (  !£L_Ep  )  for  water  by: 
uk 

log  (ALPHA)  =  9.80714  (log  (TF))0*12733 
ALPHA  =  101os  (ALPHA) 

(Equation  fits  tabularized  data  for  water 
over  temperature  range  of  4.44  to  21.11  °C, 
taken  from  Holman  [40].) 

Note:  Our  FORTRAN  will  not  exponentiate  a 
negative  number  to  a  non-interger  power, 
thus  TF  must  be  1.0  since  log  of  a  number 
less  than  1.0  is~negative. 


Calculate  Grashof/Prandtl  number  product 
(GRPR)  by: 

GRPR  =  ALPHA  *  CL3  *  (T3  -  TA) 

T3  =  Outside  surface  temperature, 

TA  =  Ambient  temperature. 
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Branch  to  equations  for  determination  of 
Nusselt  number  for  a  vertical  or  horizontal 
cylinder,  or  sphere.  The  development  of 
these  empirical  equations  can  be  found  in 
Chapter  V. 


If  vertical  cylinder,  by: 

log  (NU)  =  9.1934  -  2.4128  (log  (GRPR) ) 
+  0.1817  (log  (GRPR))2 


GO  TO  B 


If  horizontal  cylinder,  by: 
log  (Nu)  *  0.2486  (log  (GRPR))  -  0.4483 

GO  TO  B 


If  sphere,  by: 

log  (NU)  «  0.46486  (log  (GRPR))  -  1.9726 


B  Computing  CHTC  from  log  (NU): 

Calculate  thermal  conductivity  of  water 
boundary  layer  (CF  in  W/M°C)  by: 

CF  *  0.56662  +  1.7977  x  10"3  *  TF 

(Equation  fits  tabularized  data  for  water 
over  temperature  range  of  0  to  21.11  °C, 
taken  from  Holman  [40].) 
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Function  TR(TDHS.BR) 


This  subroutine  calculates  the  regional 
(Fig.  1  of  Chapter  I)  experimental  skin 
temperature  from  the  experimental  data 
recorded  from  Body's  12  segments  (Fig.  2  of 
Chapter  I). 


Declare  passed  variables. 


Initialize  summation  variables  TR  and 
SWGT  to  zero. 


Do  to  A  1=1,2: 


SET  J=C0R(BR,L) 

COR  =  The  array  containing  the 
correspondence  between  the  9  region  model 
man  (Fig.  1  of  Chapter  I)  and  the  12 
segment  Hody  man  (Fig.  2  of  Chapter  I). 
Each  row  of  array  COR  corresponds  to  a 
body  region  of  the  model  man. 

For  BR=3,  the  abdomen, 

C0R( 3,1)  =  3-Hody's  abdomen, 

C0R(3,2)  =  5-Hody's  lower  back. 

For  BR«6,  the  feet, 

C0R(6,1)  =  12-Hody's  feet, 

C0R(6,2)  *  -1. 

The  -1  indicates  that  the  correspondence 
is  one  to  one. 


IF  J— 1  GO  TO  A 
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Add  weighted  predicted  temperature  for 
segment  J  into  regional  sum  and  increment 
occurrence  counter  by: 

TR  =  TR  +  PRED(J.TDMS)  *  WGT(J) 

SWGT  *  SWGT  +  WGT(J) 

PRED  =  Function  subroutine  for  determining 
predicted  skin  temperature  for  any  of 
Hody's  12  segments, 

(See  Funct'^n  PRED(REG.TDMS)  for  details.) 
WGT  *  Array  containing  surface  area 
fractions  for  Hody's  12  segments. 


A  Continue  -  to  next  L  value. 


Determine  weighted  average  TR  by: 


TR._IL 

SWGT 


RETURN 


Function  PRED(REG.TSKM) 


This  function  calculates  a  value  for  one  of 
Hody's  12  segments  by  using  an  empirically 
verified  Kerslake  type  model.  This  function 
is  called  by  Function  TR. 


Declare  passed  variables. 


Calculate  the  predicted  temperature  for  the 
segment  specified  in  REG  by: 

PRED  =  TSKM  +  (KA(REG)  *  KR) 

TSKM  =  Design  mean  skin  temperature, 

KA(REG)  =  Coefficient  for  the  Hody  segment 
specified  by  REG, 

KR  *  Constant  used  in  the  temperature 
prediction  equations  developed  to 
predict  the  skin  temperatures  at  the  12 
Hody  segments. 

The  KA(REG)  and  KR  values  were  derived  from 
linearized  experimental  data  taken  from  4 
resting  subjects  in  helium  oxygen  at  20  °C 
and  200  MSW.  The  equation  for  PRED  is 
based  on  a  Kerslake  type  model.  The 
development  of  this  equation  is  found  in 
Chapter  IV. 


RETURN 
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Function  TC(TDC,Z) 


Computes  the  thermal  conductivity  of  air 
(TC)  at  a  temperature  of  TDC  °C  and  a 
pressure  of  Z  MSW  from  a  table  of  data 
extracted  from  the  U.S.  Navy  Diving  Gas 
Manual  [42] .  A  method  of  two-dimensional 
1  inear  interpolation  described  by  Carnahan, 
Luther,  and  Wilkes,  Applied  Numerical 
Methods ,  p.  63  [49]  is  used.  The  table  of 
air  data  covers  a  temperature  range  of  -1.11 
to  54.44  °C  and  a  pressure  range  of  14.7  to 
200.0  PSIA. 


RETURN 
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Subroutine  PL0TD( IR,PSYM,BR) 


This  subroutine  must  be  called  three 
different  times  to  generate  the  three 
graphs  of  temperature,  heat  flux,  and 
conductance. 


Declare  variables  passed  to  subroutine. 


The  array  P  as  filled  in  the  Main  program  is 
passed  to  this  subroutine  via  a  common  block 
statement.  Each  row  corresponds  to  a 
specific  time.  For  the  kth  row  the  array  is 
filled  as  follows. 


P(K,1)  »  Experiment . i  time 

P(K,2)  =  Expert  mental  temperature  (TEXPT) 

P(K,3)  =  Predicted  temperature  (Tl) 

P(K,4)  *  Experimental  heat  flux  (QEXPT) 
P(K,5)  ■  Predicted  heat  flux  (Q(BR)) 
P(K,6)  =  Experimental  overall  heat 

transfer  coefficient  (UEXPT) 
P(K,7)  *  Predicted  overall  heat  transfer 
coefficient  (U) 

P(K,8)  =  Design  mean  skin  temperature 
(TOMS) 

P(K,9)  =  Ambient  temperature  (TA) 


The  passed  variable  IR  indicates  the  offset 
Into  array  P  at  which  to  find  the 
experimental  and  predicted  pairs  of 
temperatures,  heat  fluxes,  and  overall  heat 
transfer  coefficients. 


Call  subroutine  SYMBOL  to  write  body 
region  name  on  plot. 

(The  subroutines  SYMBOL,  PLOT,  LINE,  and 
others  used  in  this  subprogram,  which  are 
not  outlined  in  this  flow  chart,  are 
specialized  plotting  subroutines  detailed 
in  reference  50.) 
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Call  subroutine  PLOT  to  reset  plot  pointer 
to  origin. 


Do  to  Z  J=l,2: 

(J=l-Experimental  curve  generated, 
2-Predicted  curve  generated) 


Do  to  Y  K=1,NREC: 


Fill  the  array  XP  with  the  experimental 
times  to  be  plotted  (Skip  times  where  the 
data  Is  less  than  or  equal  to  zero.)  by: 

XP(K)  =  P(K,1) 


Fill  the  array  YP  with  the  dimensional 
experimental  (0=1)  or  predicted  (J=2)  data 
of  regional  skin  temperature  (IR=1),  heat 
flux  (IR=3),  or  overall  heat  transfer 
coefficient  (IR=5)  depending  on  the  current 
values  of  the  variables  0  and  IR  by: 


YP(K)  =  P(K,IR+J) 


Y  Continue  -  to  next  time  record. 


IF  J*1  GO  TO  A 


Write  output  f11e  containing  both 
experimental  and  predicted  data  points 
plotted.  (Since  both  the  experimental  and 
predicted  values  are  already  in  array  P, 
they  are  both  printed  at  once.) 


A  Call  subroutine  LINE  to  write  curve 
defined  by  the  ordered  pairs  contained  in 
XP  and  YP  with  the  plotting  symbol  defined 
in  PSYM(J) . 


Call  subroutine  SYMBOL  to  write  curve  label 
(i.e.,  T-EXPT  or  T-PRED,  Q-EXPT  or  Q-PRED, 
U-EXPT  or  U-PRED)  contained  in  array 
variable  LABEL(J)  passed  in  common  from  the 
Main  program. 


Call  subroutine  SYMBOL  to  write  curve 
plotting  symbol  (i.e.,  '+'  -  experimental, 
'x'  -  predicted)  defined  in  PSYM(J). 


Z  Continue  to  next  curve. 


RETURN 


Subroutine  PL0TN( IR,PSYM,BR,RMD) 


This  subroutine  must  be  called  two  different 
times  to  generate  the  two  graphs  of 
normalized  temperature  and  Biot  number. 


Declare  variables  passed  to  subroutine. 


The  array  P  as  filled  in  the  Main  program  is 
passed  to  this  subroutine  via  a  common  block 
statement.  Each  row  corresponds  to  a 
specific  time.  For  the  Kth  row  the  array  is 
filled  as  follows. 


P(K,1)  =  Experimental  time 

P(K,2)  =  Experimental  temperature  (TEXPT) 

P(K,3)  =  Predicted  temperature  (Tl) 

P(K,4)  =  Experimental  heat  flux  (QEXPT) 
P(K,5)  *  Predicted  heat  flux  (Q( BR) ) 
P(K,6)  =  Experimental  overall  heat 

transfer  coefficient  (UEXPT) 
P(K,7)  =  Predicted  overall  heat  transfer 
coefficient  (U) 

P(K,8)  =  Design  mean  skin  temperature 
(TOMS) 

P(K,9)  =  Ambient  temperature  (TA) 


The  passed  variable  IR  indicates  the  offset 
into  array  P  at  which  to  find  the 
experimental  and  predicted  pairs  of 
temperatures,  heat  fluxes,  and  overall  heat 
transfer  coefficients. 


Call  subroutine  SYMBOL  to  write  body 
region  name  on  plot. 

(The  subroutines  SYMBOL,  PLOT,  LINE,  and 
others  used  in  this  subprogram,  which  are 
not  outlined  in  this  flow  chart,  are 
specialized  plotting  subroutines  detailed 
in  reference  50.) 
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Call  subroutine  PLOT  to  reset  plot  pointer 
to  origin. 


Determine  depth  of  the  mid-point  of  the 
region  BR  below  sea  level  (RMD)  by  taking 
into  account  the  posture  of  the  subject. 
This  depth  is  used  to  calculate  the  thermal 
conductivity  of  air  for  use  in  the  Biot 
number  computations. 


Do  to  Z  J=l,2: 

(J=l-Experimental  curve  generated, 
2-Predicted  curve  generated) 


Do  to  Y  K=1,NREC: 


Fill  the  array  XP  with  the  experimental 
times  to  be  plotted  (Skip  times  where  the 
data  is  less  than  or  equal  to  zero.)  by: 

XP( K)  =  PD(K.l)  =  P(K,1) 


Calculate  and  fill  array  YP  with  the 
dimensionless  experimental  (J=l)  or 
predicted  (J=2)  data  of  regional  normalized 
skin  temperature  (IR=1)  or  Biot  number 
(IR=5),  depending  on  the  current  values  of 
the  variables  J  and  IR.  Use  the  following 
equations  to  determine  the  normalized  skin 
temperature  and  Biot  number. 


301 


Calculate  the  regional  normalized  skin 
temperature  (TN)  by: 

YP(K)  =  PD(K,J+1)  =  p(K»IR+J)  -  pfK_»_9) 

P(K,8)  -  P(K,9) 

P(K,IR+J)  =  Experimental  (J=l)  or 
predicted  (J=2)  regional  skin  temperature, 
P(K,9)  =  Experimental  ambient  temperature, 
P(K,8)  =  Hody  mean  skin  temperature 
determined  from  the  12  experimental 
temperatures , 

IR  «  1. 


Calculate  the  r  lonal  Biot  numbers  (BI) 
by: 

YP(K)  -  PD(K,J+1)  -  PiK.IP^J)  ♦  (B(BR,2)/2.0) 

TC(TH.RMD) 


P(K,IR+J)  *  Experimental  (J=l)  or 
predicted  (J=2)  overall  heat  transfer 
coefficient  for  region  BR, 

TC(TM,RMD)  =  Estimate  of  thermal 
conductivity  of  the  suit  entrapped  gas. 
Estimate  is  based  on  a  mean  entrapped  gas 
temperature  (TM)  at  a  depth  equivalent  to 
the  mid-point  of  the  region  (RMD), 

TM  =  The  average  of  the  regional  predicted 
skin  (Tl)  and  the  ambient  (TA)  temperatures, 
RDM  =  Depth  of  the  mid-point  of  the 
region  below  sea  level, 

B(BR,2)  =  Diameter  of  region  BR, 

IR  =  5. 


Y  Continue  -  to  next  time  record. 


Call  subroutine  LINE  to  write  curve  defined 
by  the  ordered  pairs  contained  in  XP  and  YP 
with  the  plotting  symbol  defined  in 
PSYM(J). 
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Call  subroutine  SYMBOL  to  write  curve  label 
(i.e.,  TN-EXPT  or  TN-PRED,  BI-EXPT  or 
BI-PREO)  contained  in  array  variable 
LABEL(J)  passed  in  common  from  the  Main 
program. 


Call  subroutine  SYMBOL  to  write  curve 
plotting  symbol  (i.e.,  '+'  -  experimental, 
1 x '  -  predicted)  defined  in  PSYM(J). 


Z  Continue  -  to  next  curve. 


Write  output  file  containing  both 
experimental  and  predicted  data  points 
plotted.  Both  loops  of  Z  must  be  completed 
since  only  then  will  both  the  experimental 
and  predicted  values  be  available.  (Array 
P0  is  used  to  store  the  experimental  and 
predicted  values.) 


RETURN 


vy 

APPENDIX  F 

INTERACTIVE  PROGRAM  LISTING 
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REAL  KA, KR, COO/ Q(10),  EXP(29),  SCALY(3.  3).  SCALYN<2.  3) 

1/  LX,  SX,  IX,  LY,  SY,  IY,  LYS,  XP  ( 125 ) ,  YP  ( 125 ) 

2,  BF  <  9 ) , QA ( 9 ) ,  QP ( 9 ) ,  QSUPP ( 9 ) ,  SAM ( 9 ) , GALL ( 9 ) 

REAL*8  LABEL<3)  •  BREO< 10) 

INTEOER  FLAG1, FLA02,  COR,  BR,  ATT,  SYM<2) 

BYTE  RDU,  GCOMP,  FILEOO),  WO,  PLD,  PLN,  DUM,  REU,  NST 

1,  PRTL(ll),  PRT,  OUT,  PU<2) 

COMMON  /PREDD/KA < 12 ) , KR 

If /BODY/B (9,  3 ) ,  COR ( 9,  2),  WOT( 12) 

2,  /TRNOSQ/C  <  6, 7) 

3,  /SUIT/WUOO,  DR,  SRO,  WOO,  COO,  TWUG0<9> 

4,  /DEBUC/FLA02, LO 

5,  /OHTCD/RUGHA,  RUG,  ROO,  ROBL,  Rl,  R2,  R3,  Tl,  T3,  FLAOl 

6,  Q1A,  Q13 

7,  /PROB/BR,  ATT,  RD,  RDM,  TA,  NN,  TDMS,  DZ,  DZV,  FLA03,  RDS 

8,  RDU 

9,  /PLOT/P<  125,  9),  LX,  SX,  IX,  LY,  SY,  IY,  LYS,  LABEL,  NR  EC 

1,  BREO.  XP,  YP,  PD<  125,  3) ,  LCL,  CH,  REU,  PRT(  13) 

2,  /MISC/QALL, BF 

C****-»**************-»*******#*****#*«*******-»*****#***********«** 
NOTE:  ALL  VALUES  FOR  ARRAYS  ENTERED  VIA  DATA  STATEMENTS 
ARE  ENTERED  IN  COLUMN  MAJOR  ORDER ! 
*********************«*********«*************************•»-»***** 

ARRAY  B  -  CONTAINS  REGIONAL  BODY  DIMENSIONS 
!  *NQTE*  ALL  VALUES  ARE  IN  METERS 

!  -  1ST  COLUMN  CONTAINS  IDENTIFICATION  OF  SHAPE 

!  -1  IMPLIES  SPHERE 

!  0  IMPLIES  CYLINDER 

!  +#  IMPLIES  CONIC  =  DIAMETER  OF  TOP  OF  CONE 

!  -  2ND  #  IS  DIAMETER  OF  SPHERE,  CYLINDER  OR 

!  BOTTOM  OF  CONE 

!  -  3RD  #  IS  THE  HEIGHT  OF  REGION 

I 

! DIMENSIONAL  NUMBERS  ENTERED  FOR  MODEL  MAN 
'.♦NOTE*  ALL  CYLINDERS  AND  CONES  ARE  CONNECTED  END 
!  TO  END. 

!  ID#  -  REGION  -  SHAPE  /  ENTERED  #'S  / 

!  1  -  HEAD  -  SPHERE  /  -1.0,0.206,0.206  / 

'.  2  -  TORSO  -  CYLINDER  f  0.  0,  0.  30.  0.  353  / 

!  3  -  ABDOMEN  »  CYLINDER  /  0.  0,  0.  30,  0.  353  / 

!  4  -  THIGH  -  CYLINDER  /  0.0,0.  15,0.383  / 

'.  5  -  CALF  »  CYLINDER  /  0.  0,  0.  12,  0.  328  / 

!  6  -  FOOT  ■  CYLINDER  /  0.0,0.  15,0.  104  / 

!  7  -  UPPER  ARM  -  CYLINDER  /  0.  0,  0.  096,  0.  223  / 

!  8  -  LOWER  ARM  ■  CYLINDER  /  0.  0,  0.  07,  0.  267  / 

!  9  -  HAND  -  SPHERE  /  -1.0,0.  123,0.  123  / 


C  ARRAY  COR  (9,2)  CONTAINS  THE  CORRESPONDENCE  BETWEEN 

!  OUR  9  REGION  MODEL  ID  #'S  AND  THE  12  SEGMENT 

!  HODY/ZUMRICK  MEASUREMENT  SYSTEM  ID  #'S. 

!  THE  ROW  NUMBERS  OF  THE  ARRAY  CORRESPOND  TO  THE 
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BODY  REGION  ID'S  FOR  OUR  9  REGION  MAN. 
FOR  EXAMPLE:  9  REGION  MODEL,  REGION  T0RS0<2> 
CORRESPONDS  TO  THE  12  SEGMENT  MODEL,  SEGMENTS 
CHEST < 2 )  AND  UPPER  BACK  (4). 


•ROW# 

9  REGION 

12  SEGMENT  MODEL 

MODEL  NAME 

CORRESPONDING  SEGMENTS  NAME ( I D# ) 
ID  #'S  ARE  IN  ARRAY  COR (9, 2) 

!  1 

HEAD 

HEAD< 1 ).  (-1 ) 

!  2 

TORSO 

CHEST (2), UPPER  BACK<4> 

!  3 

ABDOMEN 

ABDOMEN (3), LOWER  BACK(5) 

!  4 

THIGH 

FRONT  THIGH(8), REAR  THIGH(IO) 

!  5 

CALF 

FRONT  CALF < 9) , REAR  CALF(ll) 

!  6 

FOOT 

FOOT (12),  (-1 ) 

!  7 

UPPER  ARM 

ARM(6>,  (-1 ) 

!  8 

LOWER  ARM 

ARM(6),  (-1 > 

!  9 

HAND 

WRIST (7) , (-1) 

NOTE  (-1)  INDICATES  THAT  ONLY 

ONE  CORRESPONDING  SEGMENT  IS 
AVAILABLE  FROM  12  SEGMENT  MODEL 

C  ARRAY  SAM ( 9 )  CONTAINS  THE  REGIONAL  SURFACE  AREAS  OF  OUR 

! MODEL  MAN  IN  METERS  SQUARED  (M**2> 

DATA  B/-1.  0,  0.  0,  0.  0,  0.  0,  0.  0,  0.  0,  0.  0,  0.  0,  -1.  0 

1,  O.  206,  0.  30,  0.  30,  0.  15.  0.  12,  0.  15,  0.  096,  0.  07,  0.  123 

2,  O.  206,  0.  353.  0.  353,  0.  383,  0.  328,  0.  104,  0.  223,  0.  267,  0.  123/ 

3,  COR/1,2,  3,  8,  9,  1 2,  6,  6,  7,  — 1,  4,  5,  10,  11,  "*  1 ,  —  1 ,  —  1 ,  —1/ 

4,  SAM/O.  1333,  0.  3327,  0.  3327,  0.  3610,  0.  2474,  0.  1334 

5,  0.  1490,  0.  1174,  0.  0950/ 

ARRAY  C  -  CONTAINS  THERMAL  CONDUCTIVITY  DATA  FOR  AIR 
!  -  AS  F(TEMP, PRES) 

!  -  PRESSURES  -  14.  7,  30.  0,  50.  0,  100.  0  PSIA 

!  -  TEMPERATURES  -  30.  0,  50.  0,  70.  0,  90.  0,  110.  0, 

!  130. 0  F 

!  **NOTE** 

!  CONDUCTIVITIES  HAVE  UNITS  BTU/SEC  FT  F 

!  AND  VALUES  MUST  BE  MULTIPLIED  BY  1.  OE-6 

!  DATA  TAKEN  FROM: 

!  -  U.  S.  NAVY  DIVING  GAS  MANUAL, 

!  -  NAVSHIPS  0994-003-7010,  1971 

!  -  PAGE  T-4  (AIR  DATA) 

i 

DATA  C/0.  0,  14.  7,  30.  0,  50.  0,  100.  0,  200.  0 

2,  30.  0,  3.  93,  3.  93,  3.  95,  3.  98,  4.  03 

3,  50.  0,  4.  06,  4.  07,  4.  08,  4.  11,  4.  16 

4,  70.  0,  4.  19,  4.  20,  4.  21,  4.  24,  4.  29 

5,  90.  0,  4.  32,  4.  33,  4.  34,  4.  37,  4.  42 

6,  110.  0,  4.  45,  4.  46,  4.  47,  4.  49,  4.  54 

7,  130.  0,  4.  58,  4.  59,  4.  59,  4.  62,  4.  66/ 


ARRAY  KA  CONTAINS  CONSTANTS,  A(i)'S,  NEEDED  FOR  THE 
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!  SEGMENTAL  TEMPERATURE  PREDICTIONS  EQUATIONS.  THESE 
! CONSTANTS  WERE  DERIVED  FROM  KER SLAKE 'S  MODEL.  SEE 
.'TEXT  FOR  DETAILS. 


C  VARIABLE  KR  IS  CONTANT  R  NEEDED  FOR  SEGMENTAL 

'.TEMPERATURE  PREDICTIONS. 

! THE  KR  CONSTANT  WAS  DERIVED  FROM  A  KERSLAKE  TYPE  MODEL 

! SEE  TEXT  FOR  DETAILS  OF  DERIVATION 

DATA  KA/O.  36,  0.  27,  0.  30,  0.  52,  -0.  08,  0.  22,  “0.  64,  -0.  04, 

1-0.  16,  -0.  06,  -0.  55,  -0.  86/ 

1,  KR/2.  946/ 

C 

C  ARRAY  QALL  (9)  CONTAINS  THE  REGIONAL  ALLOWABLE  HEAT 

! FLUXES (W/M**2)  ADAPTED  FROM  THE  DATA  OF  BURRISS, 

! PRINCIPLE  INVESTIGATOR,  'STUDY  OF  THE  THERMAL  PROCESSES 
! FOR  MAN  IN  SPACE',  NASA  CONTRACT  REPORT  CR-216. 


C  ARRAY  BF(9>  CONTAINS  THE  REGIONAL  BIASING  FACTORS  USED 

! TO  MAKE  PREDICTED  OVERALL  HEAT  TRANSFER  COEFFICIENTS 
! AGREE  MORE  FAVORABLY  WITH  THE  EXPERIMENTAL  VALUES. 

!  PRED  OHTC  *  BF(i)  *  CORRECTED  PRED  OHTC 

DATA  GALL/23.  3,  60.  0,  49.  7,  42.  4,  85.  0,  97.  O,  98.  9,  125.  25 

1.  265.  86/ 

2,  BF/2.  63,  2.  63.  2.  27,  3.  50,  3.  21,  12.  70,  2.  29.  2.  19,  3.  49/ 


DEFINITION  OF 
!  WUGO 

SRO 

DR 


WOG 

COG 


SUIT  THERMAL  PROPERTIES  AND  DIMENSIONS 

»  WIDTH  (THICKNESS)  OF  UNDER  GARMENT  AT  SEA 
LEVEL  (CM). 

a  SPECIFIC  RESISTANCE  OF  UNDER  GARMENT 
AT  SEA  LEVEL  (CLO/CM) 

«  DECIMAL  X  CHANGE  IN  SRO  PER  DECIMAL  X  CHANGE 
IN  UNDERGARMENT  THICKNESS 
(CLO/CM/CLO/CM/CM/CM)  (IE:  DIMENSIONLESS) 
EXPERIMENTALLY  DETERMINED.  SEE  TEXT  FOR 
DETAILS. 

a  WIDTH  OF  OUTER  GARMENT  (CM)  »>  1/16  INCH 

-  THERMAL  CONDUCTIVITY  OF  OUTER  GARMENT  MATERIAL 
WATTS/M*C ) 


C 


TWUGO  -  ARRAY  CONTAINING  THE  #  OF  THICKNESSES  OF 
!  UNDERGARMENT  MATERIAL  FOR  EACH  REGION. 

!  EACH  LAYER  IS  'WUGO'  THICK. 


C 


WGT  -  CONTAINS  SURFACE  AREA  WEIGHTS  FOR  THE  12  SEGMENT 
!  HODY  MODEL. 

DATA  WUGO,  SRO,  DR,  WOG,  COG/1.  63,  2.  27,  0.  1175,  0.  15875 
1,0.  17307/ 


CM  o  «t 


,  TWUGO/1.  0,  1.  0,  1.  0/  1.  0,  1.  0.  2.  0,  1.  0.  1.  0,  1.  0/ 

,  WGT/0.  070,  0.  085,  0.  085,  0.  090,  0.  090,  0.  140,  0.  050,  0.  095 
,  0.  065,  0.  095,  0.  065,  0.  070/ 
i  C 

!  C  BREG  -  ARRAY  CONTAIN  BODY  REGION  NAMES  FOR  PRINT 

i  !  ORDERED  ACCORDING  TO  REGION  ID  * 

|  I 

DATA  BREG/  'HEAD ' ,  'TORSO',  'ABDOMEN',  'THIGH',  'CALF', 

!  1  'FOOT ' ,  'UP  ARM',  'LOW  ARM',  'HAND',  'TIME'/ 

i  c 

j  c**************************^****************#*#**#************** 
! PLOTTING  AND  COMPARISON  VARIABLES 

ISCALY  *  ARRAY  CONTAINS  Y  AXIS  SCALES  FOR  T,  Q,  AND  U 


!  PLOTS 

!  CONTENTS  OF  ARRAY  SCALY <3, 3) 


;  1 - 1 - 

!  COLUMN/ !  1 

2 

3 

!  ROW  ! 

!  1  !  5.  0 

20.  0 

4.  0 

TEMPERATURES 

1  !  2  !  5.  0 

0.  0 

50.  0 

HEAT  FLUXES 

!  3  !  4.  0 

0.  0 

4.  0 

TRANSFER  COEF 

!  COLUMN  1  CONTAINS  LENGTH  OF  Y-AXIS 
!  COLUMN  2  CONTAINS  STARTING  Y-AXIS  VALUE 
! COLUMN  3  CONTAINS  Y-AXIS  INCREMENT 
!  (IE:  Y-AXIS  UNITS/ INCH (CM)  ) 

!  SCALYN  *  ARRAY  CONTAINS  Y  AXIS  SCALES  FOR 
!  NORMALIZED  TEMPERATURE  AND  BIOT  #  PLOTS 

!  CONTENTS  OF  ARRAY  SCALYN (2,  3) 


!  COLUMN/!  12  3 

!  ROW  ! 

!  1  !  4.  0  0.5  0.25  NORMALIZED  TEMPERATURES 

! 2  '.4.0  0.0  10.0  BIOT  NUMBERS 

! COLUMN  1  CONTAINS  LENGTH  OF  Y-AXIS 
! COLUMN  2  CONTAINS  STARTING  Y-AXIS  VALUE 
! COLUMN  3  CONTAINS  Y-AXIS  INCREMENT 
!  (IE:  Y-AXIS  UNITS/INCH(CM>  ) 


!  LX  -  LENGTH  OF  X-AXIS 

! SX  -  STARTING  VALUE  FOR  X-AXIS 

!  IX  -  INCREMENT  FOR  X-AXIS 

!LY  -  LENGTH  OF  Y-AXIS 

! SY  -  STARTING  VALUE  FOR  Y-AXIS 

!  IY  -  INCREMENT  FOR  Y-AXIS 

! LYS  -  LENGTH  Y-AXIS  SAVED 

!  XP  -  ARRAY  FOR  X-AXIS  VALUES  FOR  PLOTTING 

! YP  -  ARRAY  FOR  Y-AXIS  VALUES  FOR  PLOTTING 

!  LABEL  -  ARRAY  FOR  LEGEND  NAMES  FOR  PLOTS 

! P  «  ARRAY  FOR  SAVING  X  AND  Y  VALUES  FOR  PLOTTING 

! FILE  -  ARRAY  FOR  NAME  OF  FILE  CONTAINING  EXPERIMENTAL 

!  DATA  FOR  COMPARISON 

! TAR  »  TOTAL  AREA  OF  EXPERIMENTAL  SUBJECT 
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QEXPT  »  SUM  OF  EXPERIMENTAL  G'S  FOR  SIMPLE  SUM 
UEXPT  =  SUM  OF  EXPERIMENTAL  U'S 
TEXPT  -  SUM  OF  EXPERIMENTAL  T'S 
PLD  -  INDICATES  WHETHER  DIMENSIONAL  PLOTS 
ARE  WANTED  OR  NOT 

PLN  -  INDICATES  WHETHER  NON-DIMENSIONAL  PLOTS 
ARE  WANTED  OR  NOT 

IR  =  0,4,6.  0*  NO  LINEARIZED  EXPT.  PLOTS 
4-  PLOT  LINEARIZED  EXPT.  Q'S 
6-  PLOT  LINEARIZED  EXPT.  U'S 
SWGT  «  SUM  OF  HODY  WEIGHTS  FOR  CONVERSION 

FROM  HODY'S  12  SEGMENTS  TO  THE  MODEL'S  9 
REGION  FORM. 

SWCTT  =  SUM  OF  HODY  WEIGHTS  FOR  CONVERSION 

OF  SEGMENTAL  EXPERIMENTAL  TEMPERATURES 
FROM  HODY'S  12  SEGMENTS  TO  THE  MODEL'S  9 
REGION  FORM. 

SWGTQ  »  SUM  OF  HODY  WEIGHTS  FOR  CONVERSION 

OF  SEGMENTAL  EXPERIMENTAL  HEAT  FLOWS 
FROM  HODY'S  12  SEGMENTS  TO  THE  MODEL'S  9 
REGION  FORM. 

SWGTU  =  SUM  OF  HODY  WEIGHTS  FOR  CONVERSION 

OF  SEGMENTAL  EXPERIMENTAL  OVERALL  HEAT 
TRANSFER  COEFFICIENTS 

FROM  HODY'S  12  SEGMENTS  TO  THE  MODEL'S  9 
REGION  FORM. 

LFN  -  LENGTH  OF  EXPT.  FILE  NAME.  (NO.  OF  CHARACTERS) 
TS  »  TIME  START  FOR  LINEARIZATION 
TE  ■  TIME  END  FOR  LINEARIZATION 

NREC  *  NUMBER  OF  EXPT.  RECORDS  (TIMES)  AVAILABLE  FOR 
COMPARISON 

QCOMP  -  Y  OR  N,  INDICATES  DESIRE  FOR  COMPARISON  OF 
EXPERIMENTAL  VALUE  WITH  PREDICTIONS. 

EXP  IS  THE  ARRAY  USED  TO  READ  IN  EXPERIMENTAL  DATA 
VALUES  FOR  COMPARISON 

ARRAY  Q  CONTAINS  THE  9  COMPUTED  REGIONAL  HEAT  FLUXES 
ARRAY  GP  CONTAINS  THE  9  COMPUTED  REGIONAL  HEAT  FLOWS 
ARRAY  GA  CONTAINS  THE  9  ASSUMED  REGIONAL  ALLOWABLE 
HEAT  FLOWS 

ARRAY  GSUPP  CONTAINS  THE  9  COMPUTED  REQUIRED 
REGIONAL  HEAT  FLOWS 


ARRAY  SCALY  IS  ENTERED  INTO  THE  COMPUTER  VIA  A  DATA 
! STATEMENT  IN  COLUMN  MAJOR  ORDER  AS: 

*  LYT,  LYQ,  LYU,  SYT,  SYG,  SYU,  IYT,  IYG,  I  YU 

!  WHERE:  LYX  »>  LENGTH  OF  Y-AXIS 

!  SYX  ■>  STARTING  VALUE  FOR  Y-AXIS 

*  IYX  «>  INCREMENTING  VALUE  FOR  Y-AXIS 

!  (X  IN  THE  ABOVE  IMPLIES  T'S,  Q'S,  OR 

!  U'S) 
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C  ARRAY  SCALN  IS  ENTERED  INTO  THE  COMPUTER  VIA  A  DATA 

! STATEMENT  IN  COLUMN  MAJOR  ORDER  AS: 

!  LYTN, LYBI/ SYTN, SYBI. IYTN. IYBN 
!  WHERE:  LYXX  ->  LENGTH  OF  Y-AXIS 

!  SYXX  ■>  STARTING  VALUE  FOR  Y-AXIS 

!  I YXX  ->  INCREMENTING  VALUE  FOR  Y-AXIS 

!  (XX  IN  THE  ABOVE  IMPLIES  TN'S  OR  BI'S) 


C  VARIABLES  LX, SX, IX  ARE  ENTERED  INTO  THE  PROGRAM  VIA 

! A  DATA  STATEMENT  AS: 

!  LX,  SX,  IX 

!  WHERE:  LX  »>  LENGTH  OF  X-AXIS 

!  SX  «>  STARTING  VALUE  FOR  X-AXIS 

!  IX  »>  INCREMENTING  VALUE  FOR  X-AXIS 


I  C  SYM  IS  A  VECTOR  CONTAINING  THE  INTEGERS  CORRESPONDING 

! TO  THE  SYMBOLS  TO  BE  USED  FOR  THE  EXPERIMENTAL  AND 
! PREDICTED  VALUES  RESPECTIVILY. 

DATA  SCALY/5.  0,  5.  0,  4.  0,  20.  0,  0.  0,  0.  0.  4.  0.  50.  0,  4.  0/ 

1,  SCALYN/4.  0.  4.  0,  0.  5,  0.  0,  0.  25,  10.  0/ 

2,  LX.  SX,  IX/7.  0,  0.  0,  20.  0/ 

3,  SYM/3,  4/ 

C  ******************************************************************** 
C  THE  FOLLOWING  VARIABLES  ARE  USED  AS  TEMPORARY  VARIABLES 

! AND  HAVE  NO  PERMANENT  MEANING 
!DUM.  I,  J,  L,  M,  N 

,  C**************************************************************** 
!  \ THIS  SYSTEM  LEVEL  SUBROUTINE  CALL  IS  USED  TO  ATTACH  THE 

•TERMINAL  TO  THIS  TASK.  THIS  PREVENTS  RETURNS  USED  TO 
!  ! TERMINATE  RESPONSES  FROM  BEING  INTERPRETED  BY  THE 

j  'OPERATING  SYSTEMS  MONITOR  CONTROL  ROUTINE. 

!  CALL  WTQIO  ("1420, "5> 


MAIN 


VARIABLES  DEFINED  IN  MODULE  MAIN 
FLAG2  -  DE3UG  PRINT  FLAG  <-l->YES,  0->N0) 

0R  =  BODY  REGION  ID  (0-9) 

RD  «  REFERENCE  DEPTH  ■>  DEPTH  BELOW  SEA  LEVEL 
OF  SHOULDER  LINE  (FSW, MSW, PSI > 

RDU  -  INDICATOR  OF  UNITS  OF 
(F-FSW,  M-MSW,  P-PSI) 

NN  -  #  OF  NODE  TO  DIVIDE  EACH  REGION  INTO 
FOR  FINITE  DIFFERENCE  CALCULATIONS 
OUT  -  VARIABLE  CONTAINING  DESIRED  LOCATION 
FOR  OUTPUT  PRINTS  (T-TERMINAL, 

F»DR : DMPDAT.  LST ) 

TDMS  ■  TEMPERATURE  -  MEAN  SKIN  -  AT  WHICH  TO  PERFORM 
CALCULATIONS  (DESIGN  MEAN  SKIN  TEMPERATURE) 

TA  -  TEMPERATURE  -  AMBIENT  -  AT  WHICH  TO  PERFORM 
CALCULATIONS 

-  TEMPERATURE  OF  THE  SKIN  SURFACE 
■  ATTITUDE  OF  SUBJECT  (DIVER) 


i 


T1 

ATT 


non 
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(0-SITTING,  1-STANDING,  2-LAY  HORTIZQNTAL) 

I TOT  *  FLAG  VARIABLE  INDICATING  WHETHER  OR  NOT 
DOING  ALL  REGIONS  OR  A  SINGLE  REGION 
(  -1— >ALL  REGIONS,  0«>S INGLE  REGION) 

LO  -  VARIABLE  CONTAINING  LOGICAL  UNIT  # 

AT  WHICH  TO  PRINT  OUTPUT  PRINTS 
<  5->TERMINAL,  3->DR: DMPDAT.  LST) 

U  -  VARIABLE  CONTAINING  RESULTS  OF  CALCULATION 

OF  OVERALL  HEAT  TRANSFER  COEFFICIENT 
FOR  SPECIFIED  NODE  OF  SELECTED  REGION 
US  -  VARIABLE  CONTAINING  RUNNING  SUM  OF  NODAL 
U'S 

UN  »  VARIABLE  CONTAINING  THE  COUNT  OF  THE 
NUMBER  OF  NODES  IN  THE  SUM  (US) 

QR  -  VARIABLE  CONTAINING  HEAT  LOSS  CALCULATED  FOR 
EACH  NODE 

GSUP  -  REQUIRED  SUPPLEMENTARY  HEAT  FLUX  FOR 
THE  REGION  OF  INTEREST 


! THE  FOLLOWING  VARIABLE  FOUND  IN  MODULE  MAIN  ARE 
! DEFINED  IN  OTHER  MODULES  (SUBROUTINES,  FUNCTIONS) 

!  DZ,  DZV,  FLAG  1 ,  RQBL,  ROG,  RUG,  RUGHA,  Rl,  R2,  R3,  T3 

'.INTEGER  VARIABLE  'IB'  AND  ARRAY  'PRTL *  ARE  BOTH  USED 
! BY  THE  OUTPUT  PRINTING  ROUTINES. 

! THESE  VARIABLES  HAVE  BEEN  ASSIGNED  TO  ALLOW  MORE 
'.EFFICIENT  USE  OF  THE  FORTRAN  CODE 

C - 

DATA  PRTL/  '  ',  'C',  'O',  'R ',  'R',  'E',  'C',  'T',  'E',  'D',  '  '/ 
1,  IB/'—'/ 

30  WRITE  (5,31) 

31  FORMAT  ( '*ARE  YOU  A  RESEARCH  USER  ?  (Y, N, X)  ') 

THESE  VARIABLE  ARE  BEING  PRE-DEFINED  FOR  THE 
PRODUCTION  MODE.  ALL  OF  THESE  VARIABLE  CAN  BE 
DYNAMICALLY  MODIFIED  IN  THE  RESEARCH  MODE. 

REU- 'N ' 

BR-0 
FLA02-0 
FLAG 1-0 
IR-0 
NN-1 
OUT-'T' 

QCOMP- 'N ' 

READ  (5,32)  REU 

32  FORMAT  (1A1) 

IF  (REU.  NE.  'Y'.  AND.  REU.  NE.  'N'.  AND.  REU.  NE.  'X') 

1  00  TO  30 

IF  (REU.  EQ.  'N')  GO  TO  44 
IF  (REU.  EQ.  'X')  GO  TO  15 
WRITE  (5,39) 

39  FORMAT  ( '*D0  YOU  WISH  TO  CORRECT  PREDICTED  ' 

1,  '"U"  VALUES  ?  (Y/N)  ') 

READ  (5,32)  DUM 


IF  (DUM. EQ.  'Y ' )  REU»'S' 

40  WRITE  (5,41) 

41  FORMAT  ( '*D0  YOU  WISH  DEBUG  PRINTS:  ?  (Y/N):  ') 

READ  ( 5, 32  >  DUM 

FLAG2—  1 

IF  (DUM.  EQ.  'Y')  00  TO  44 
FLA02-0 

44  WRITE  (5,6) 

6  FORMAT  (CENTER  DEPTH  IN  (M)SW,  (F)SW  OR  (P)SIO  BY  ' 

1,  '  (M#»  F#«  P#> :  CF3  ',  T70 ) 

READ  (5,7)  RDU,  RD 

7  FORMAT  (1A1.F10.  2) 

50  WRITE  (5,51)  ( IB,  M-l,  39 ) ,  SRO,  WUGO,  WOO,  COO 

51  FORMAT  ('  '« 39A2, /,  '  SEA  LEVEL  GARMENT  ENSEMBLE  ' 

1,  'PROPERTIES',  / 

2,  '01-SPECFIC  THERMAL  RESISTANCE  OF  UNDERGARMENT :  ' 

3,  '(CLO/CM)  ' 

4,  T5S. F8.  2,  /,  '  2-UNIT  THICKNESS  OF  UNDERGARMENT:  ' 

5,  '(CM)  ' 

6,  T58,  F8.  2,  /,  '  3-THICKNESS  OF  OUTER  ' 

7,  'GARMENT:  (CM) ',  T58,  F8.  4, /,  '  4-THERMAL  CONDUCTIVITY' 

8,  '  OF  OUTER  GARMENT:  (W/M*C)' 

9,  T58.  F8.  4, /,  '*ENTER  (1-4)  TO  ALTER,  (R)  ' 

1,  'TO  REINITIALIZE,  (X)  FOR  NO  ' 

2,  'CHANGE:  ') 

READ  (5.32)  IT 

IF  ( IT.  EQ.  'X')  GO  TO  58 
IF  (IT.  EQ.  'R')  FL4-R£INIT(1> 

IF  (IT.  EQ.  'R')  GO  TO  50 
DECODE  (1,53,  IT)  IT 

53  FORMAT  (ID 

GO  TO  (54, 55, 56, 57)  IT 
GO  TO  50 

54  WRITE  (5,541) 

541  FORMAT  ( '*  ENTER  1  -  SPECIFIC  THERMAL  RESISTANCE  ' 

1, 'OF  UNDERGARMENT  (CLO/CM):  CF3  ') 

READ  (5,542)  SRO 

542  FORMAT  (F10.  2) 

GO  TO  50 

55  WRITE  (5,551) 

551  FORMAT  ( '$  ENTER  2  -  UNIT  THICKNESS  OF  UNDERGARMENT' 

1,  '  (CM):  CF3  ') 

READ  (5,552)  WUGO 

552  FORMAT  (F10. 3) 

GO  TO  50 

56  WRITE  (5,561) 

561  FORMAT  ( '*  ENTER  THICKNESS  OF  OUTER  GARMENT  (CM):  LF1  ') 
READ  (5,562)  WOO 

562  FORMAT  (F10.  5) 

GO  TO  50 

57  WRITE  (5,571) 

571  FORMAT  ( '*  ENTER  THERMAL  CONDUCTIVITY  OF  OUTER  GARMENT  ' 

1,  '  (W/M*C ) :  CF3  ') 


READ  (5,572)  COG 
FORMAT  (FIO.  5) 

GO  TO  50 

WRITE  (5,580)  < IB, M«1 , 39 ) ,  (M,  BREG ( M) ,  TWUGO(M) ,  WUGO 
1,  ( TWUGO ( M > *WUGO ),  M»l,  9) 

FORMAT  ('  ' , 39A2, /«  '  REGIONAL  UNDERGARMENT  THICKNESS' 

1,  '  (CM)  ',  /,  'O',  T37,  'UNIT',  T47,  'ACTUAL',  / 

2,  '  ',  T4,  'ID  # ',  T12,  'REGION',  T23,  'MULTIPLIER ',  T35 

3,  'THICKNESS',  T46,  'THICKNESS',/ 

4,  9(5X,  II,  5X»  1A8,  5X,  F6.  2,  '  *  ' ,  F6.  2,  '  -  ',FS.  4, /),/ 

5,  'CENTER  (1-9)  TO  ALTER,  (R)  TO  ' 

6,  'REINITIALIZE,  (X)  FOR  NO  CHANGE:  ') 

READ  (5,32)  IT 

IF  (IT.  EQ.  'X')  GO  TO  59 
IF  (IT.  EG.  'R'>  FL4*REINIT(2> 

IF  (IT.  EQ.  'R')  GO  TO  58 
DECODE  (1,53,  IT)  IT 
WRITE  (5.584)  IT,  BREG(IT) 

FORMAT  (  'CENTER  NEW  MULTIPLIER  FOR  ',11.  '-',1AB 
1,  ':  CFD  ') 

READ  (5,585)  TWUGO (IT) 

FORMAT  (F6.  2) 

GO  TO  58 

WRITE  (5.590)  ( IB,  rt-1, 39),  (M,  BREG(M),  QALL  (M),  M-l,  9) 
FORMAT  ('  ' , 39A2, /,  '  ALLOWABLE  REGIONAL  HEAT  FLUX' 

1,  '  (W/M**2)  ',  /,  'O',  T32,  'ALLOWABLE',/.  '  ',T4,  'ID  #' 

2, T12,  'REGION',  T32,  'HEAT  FLUX',/ 

3,  9<  '  ',  5X,  II,  SX,  1A8,  10X,  FIO.  2,  /),  / 

4,  '4ENTER  (1-9)  TO  ALTER,  (R)  TO  ' 

1, 'REINITIALIZE,  (X)  FOR  NO  CHANGE:  ') 

READ  (5,32)  IT 

IF  (IT.  EQ.  'X')  GO  TO  60 

IF  (IT.  EQ.  'R')  FL4=REINIT<3> 

IF  (IT.  EQ.  'R')  GO  TO  59 
DECODE  (1,53,  IT)  IT 
WRITE  (5,591)  IT 

FORMAT  (  '4ENTER  ALLOWABLE  HEAT  FLUX  FOR  REGION  ' 

1,11,'  (W/M**2):  CF3  ') 

READ  (5,592)  QALL  (IT) 

FORMAT  (FIO.  3) 

GO  TO  59 

WRITE  (5,600)  (IB, M-l, 39), (M, BREG(M), BF(M>, M-l, 9) 

FORMAT  ('  ', 39A2//»  '  REGIONAL  BIASING  FACTORS' 

1,  '  (DIMENSIONLESS)',/ 

2,  'O',  T4,  'ID  #' 

3,  T12,  'REGION',  T31,  'BIASING  FACTOR',/ 

4,  9(  '  ',  5X,  II,  5X,  1A8,  10X,  FIO.  2,  /),  / 

5,  ' 4ENTER  (1-9)  TO  ALTER,  (R)  TO  ' 

6,  'REINITIALIZE,  (X)  FOR  NO  CHANGE:  ') 

READ  (5,32)  IT 

IF  (IT.  EQ.  'X')  GO  TO  609 
IF  (IT.  EQ.  'R'>  FL4-REINIT(4> 

IF  (IT.  EQ.  'R')  GO  TO  60 
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DECODE  (1,53,  IT)  IT 
WRITE  (5,601)  IT 

601  FORMAT  (CENTER  BIASING  FACTOR  FOR  REGION  ' 

1,11,'  (DIMENSIONLESS):  CF3  ') 

READ  (5,602)  BF(IT) 

602  FORMAT  (F10.  3) 

GO  TO  60 

609  WRITE  (5, 111) 

111  FORMAT  ('4WRITE  OUTPUT  FILE  WHERE:  ' 

1,  '  (T-SCREEN, F-DMPDAT.  LST)  ')  — 

READ  (5,32)  OUT 
WRITE  (5,  10) 

10  FORMAT  (CENTER  #  NODES:  Cl  3  ') 

READ  (5,11)  NN 

11  FORMAT  (114) 

IF  (REU.  EQ.  'N ' )  GO  TO  43 
WRITE  (5. 16) 

16  FORMAT  ( '*D0  YOU  WISH  TO  COMPARE  T, Q,  U  VALUES  WITH  ' 

1,  'EXP  '  'T  DATA:  (Y/N)  ') 

READ  (5,161)  QCOMP,  CH 

161  FORMAT  ( 1A1,  : FlO.  2) 

IF  (QCOMP.  NE.  'Y')  GO  TO  43 

162  NREC-0 

WRITE  (5,1621) 

1621  FORMAT  (  '4ENTER  TOTAL  SURFACE  AREA  OF  EXP"T' 

1 '  SUBJECT  IN  M**2:  CF3  ') 

READ  (5,1622)  TAR 

1622  FORMAT  (FlO.  2) 

!  IF  (TAR.  LE.  0.0)  GO  TO  162 

i  163  WRITE  (5,1630) 

1  1630  FORMAT  ( '*ENTER  EXPERIMENTAL  DATA  FILE  NAME:  ') 

I  READ  (5,1631)  LFN,  (FILE (L) ,  L=1 , LFN ) 

1631  FORMAT  (Q,  <LFN>A1 ) 

i  FILE(LFN+1  )-"0  '.WRITE  NULL 

i  OPEN  (UNIT-2,  TYPE-'OLD',  ACCESS- 'DIRECT ', 

1 NAME -FILE,  FORM- 'FORMATTED ', 

2C ARR I AGECONTROL- 'FORTRAN ',  READONLY, 
i  3REC0RDSIZE-200,  ERR-163) 

1  READ  (2'1< 164)  NREC 

164  FORMAT  (14) 

I  GO  TO  114 

!  43  WRITE  (5,431)  (IB,M-1,39) 

j  431  FORMAT  ('  ',39A2, /,  '*ENTER  DESIGN  MEAN  SKIN  ' 

1,  'TEMPERATURE  (C):  CF3',T65) 

I  READ  (5,433)  TDMS 

|  433  FORMAT  (FlO.  3) 

'  4330  WR.ITE  (5,432) 

I  432  FORMAT  ( '4ENTER  AMBIENT  TEMPERATURE  >-  1.0  C:  CF3',T65> 

i  READ  (5,433)  TA 

!  IF  (TA.  LT.  1.0)  GO  TO  4330 

!  114  WRITE  (5,8) 

i  8  FORMAT  ( '4SELECT  BODY  REGION  (1-9)  OR  (0)  FOR  ALL  ' 

I  1,  'REGIONS:  CI3',T65> 


! 


81 

82 


821 

» 


I 


822 


113 


1130 

11301 


11310 
j  11311 


C  DROP 


1132 


11321 

1133 

1134 


READ  (5,81)  BR 
FORMAT  (110) 

WRITE  (5,82) 

FORMAT  (  '^SELECT  POSTURE  OF  SUBJECT  (O-SIT,  1-STAND, 
1,  '2-PRONE):  CI]',T65> 

READ  (5,81)  ATT 
I TOT-O 

IF  (BR. EQ.  0)  IT0T=-1 
PRT (  1 )  =  '  ' 

PV=2 

IF  (REU.  EQ.  'S'.  OR.  REU.  EQ.  'N'>  GO  TO  821 
PRT ( 2  >  =  'U ' 

PRT (3>= 'N ' 

PV=4 

DO  822  M=2,  1 1 
PRT ( PV ) =PRTL ( M ) 

PV=PV+1 
PV=PV— 1 

IF  (  ITOT.  EQ.  0)  GO  TO  113 

DO  14  BR=»1,9 

L0=5 

IF  (OUT.  EQ.  'T')  GO  TO  1130 
LO-3 

OPEN  (UNIT-LQ, NAME»'SY: DMPDAT.  LST ' ) 

WRITE  (LO.  11301) 

FORMAT  ( '0') 

IF  (QCOMPNE.  'Y')  GO  TO  1134 
DO  150  I=*l «  NREC 
READ  (2 ' 1+1 , 1131 )  EXP 
FORMAT  ( 13F8.  2,  1 5F6.  2,  F6.  1 ) 

TA*EXP(27) 

IF  (TA.  GT.  0.  0)  GO  TO  11311 

DO  11310  J-2,  7 

P(I,  J>— 1.  0 

CONTINUE 

TDMS-O.  0 

SWGT-O.  0 

DO  1132  M“14,  25 

VALUE  &  WEIGHT  FROM  SUM  IF  'T'  VALUE  <»  0.0 
IF  (EXP(M).  LE.  0.  0)  GO  TO  1132 
TDMS«TDMS+(WGT(M-13)*EXP(M) ) 

SWOT-SWGT+WOT ( M- 1 3 ) 

CONTINUE 

IF  (SWGT.  EQ.  0.  0)  GO  TO  11321 

TDMS-TDMS/SWGT 

P(I, l)-EXP(l) 

WRITE  (LO,  1133)  EXP(l) 

FORMAT  ('  EXPERIMENTAL  TIME:  ',F8.  2) 

LY-'  MSW' 

IF  (RDU.  EQ.  'F')  LY-'  FSW' 

IF  (RDU.  EQ.  'P')  LY-'  PSI ' 

T1«*TR  (TDMS,  BR) 

WRITE  (LO,  115)  BR,  ATT,  TDMS,  RD,  LY,  TA,  BR,  T1 
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1151' 

116 


1161 

11611 

1162 

118 


FORMAT  (  'OBODY  REGION:  ', T56,  110.  / 

1,  '  POSTURE:  O-SIT,  1  -STAND,  2-PRONE  T56,  110,  / 

2,  '  DESIGN  MEAN  SKIN  TEMPERATURE:  ',T54,F10.  2,  '  C',/ 

3,  '  REFERENCE  DEPTH:  ',  T52,  F10.  2,  1A4,  / 

4,  '  AMBIENT  TEMPERATURE:  ',T54,  F10.  2,  '  C',// 

5,  '  PREDICTED  TEMPERATURE  FOR  REGION  ',  II,  ':  ',  T54 

6,  F10.  2,  '  CM 

IF  (NN.  EQ.  1  )  GO  TO  116 
WRITE  (LO,  1151)  NN 

FORMAT  ('  NUMBER  OF  NODES: ',T56, 110) 

Q  ( BR  >  =0.  0 
US-0.  0 
UN-0.  0 

! NOTE:  HEAD(l)  AND  HAND ( 9 )  ARE  SPHERES  AND  ARE  THUS 
!  MODELED  AS  HAVING  ONE  NODE  ONLY  FOR  ALL 

!  ATTITUDES,  O-SIT, 1-STAND, 2-LAY  HORT. 

!  THIGH(4)  IS  A  H0RTI20NTAL  CYLINDER  FOR 

!  ATT  =  0(SIT>  AND  THUS  HAS  ONLY  ONE  NODE 

!  WHEN  ATT- 1 (STAND), 2 (LAY  HORT)  THIGH(4) 

!  MATCHS  ALL  THE  OTHER  CYLINDERS  IN 

!  ATTITUDE 

IF  (BR.  NE.  1.  AND.  BR.  NE.  9.  AND.  (BR.  NE.  4.  OR.  ATT.  NE.  0)  ) 

1  GO  TO  1161 
J»1 

GO  TO  118 


NOTE: 

P( I, 1)»TIME 
P( I, 2)-T  EXPERIMENTAL 
P( I«  3)-T  PREDICTED 
P(I,4)-Q  EXPERIMENTAL 
P( I, 5>»G  PREDICTED 
P ( I »  6 > »U  EXPERIMENTAL 
P(I, 7>«U  PREDICTED 
P(I, 8)»TDMS 
P( I. 9)-TA 


DO  13  J-l,  NN 

IF  (NN.  EQ.  1 )  GO  TO  118 

IF  (J.  EQ.  1)  WRITE  (LO,  11611) 

FORMAT  ('0') 

WRITE  (LO, 1162)  BR, J 

FORMAT  ('  REGION  ',11,'  NODE  ',14) 

U-OHTC ( J ) 

! CHECK  TO  SEE  IF  CONVECTIVE  HEAT  TRANSFER  COEFFICIENT 
•  WAS  SUCCESSFULLY  DETERMINED.  FLAG3-0.  0  ->  SUCCESS 
!  FLAGS- 1.  0  AND  FLAG3-2.  0  ->  FAILURE  (SEE  SUBROUTINE 
!  CHTC  FOR  DIFFERENCE  BETWEEN  FLAG3-1.  0  AND  2.0) 

IF  (FLAG3.  GT.  0.  0)  GO  TO  148 

(CHECK  TO  SEE  IF  OHTC  WAS  SUCCESSFULLY  DETERMINED. 

!  FLAG1  >-  -1  SUCCESS,  FLA01  <  -1  FAILURE. 

!  (SEE  SUBROUTINE  OHTC  FOR  MEANING  OF  VARIOUS 
!  VALUES  OF  FLA01 > 


uuuuuuuuuuuuu 
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IF  (FLAG1.  GE. -1 )  GO  TO  1151 
IF  (FLAG1. NE.  -3)  GO  TO  11801 
i  WRITE  (LO,  1180)  T3.TA 

1180  FORMAT  ('  ESTIMATE  OF  OUTSIDE  SURF.  TEMP..  ', F5. 2 

\  1.  '  LESS  THAN  AMBIENT  TEMP..  ',  F5.  2) 

GO  TO  11803 

11801  WRITE  (LO.  11802)  NTOL 

11802  FORMAT  ('  MAX IMUN  #  OF  ITERATIONS  (NTOL=' 

1.14.  ')  ALLOWED  FOR  ESTIMATING',/ 

|  2, '  THE  OUTSIDE  SURFACE  TEMPERATURE  OF  THE  ' 

i  3, 'ENSEMBLE  BY  THE  SECANT  METHOD  EXCEEDED') 

|  11803  WRITE  (LO,  11804) 

:  11804  FORMAT  (20X, '  RUN  TERMINATED  !') 

J  GO  TO  148 

C  IF  DOING  PRODUCTION  MODE  RUN  (REU=N>  THEN  MUST  APPLY 

! BIASING  FACTOR  BF(BR)  TO  THE  NODAL  U  VALUE  . 

! NOTE:  ONLY  ON  NODE  IS  DEFINED  PER  REGION  IN  THE 
! PRODUCTION  MODE. 

1181  IF  (REU.  EQ.  'N'.  OR.  REU.  EQ.  'S' )  U=U*BF(BR) 

US=US+U 

UN=UN+1. 0 

QR=U*(T1-TA)  IWATT/M2 

Q  ( BR  >  =G  ( BR  )  +  < GR*SAM ( BR > /FLOAT (NN) )  ! WATTS 
IF  (FLAG2.  EQ.  0)  GO  TO  119 

WRITE  (LO,  1182)  RUG, ROG, ROBL, R 1 , R2,  R3.  T1 , T3 

1,  FLAG 1 , F(T3),  CHTC(T3,  R3),  US,  UN,  GR,  Q(BR  > 

1182  FORMAT  ('  RUG,  ROG,  ROBL  ' ,  IP,  3G15.  7,  / 

i  1,  '  Rl,  R2,  R3 ',  3G15.  7,  / 

2, '  Tl,  T3  ',  2G15.  7,  OP,  / 

3, '  FLAG1,  F( T3) ,  CHTC ( T3,  R3)  ',  17,  IP,  2G15.  7,  / 

4, '  US.  UN',  2G15.  7,  / 

5,  '  OR,  Q(BR  )  ',  2G15.  7) 


Q ( BR > =Q ( BR)+<QR*SAM(BR> /FLOAT (NN) )  ! WATTS 

NOTE:  MULTIPLYING  NODAL  HEAT  FLUX  'GR '  BY 

REGIONAL  SURFACE  AREA  'SAM(BR)'  DIVIDED  BY  THE 

NUMBER  OF  NODES  ' FLOAT ( NN ) '  FORCES  THE  EXTRA  AREA 

CONTRIBUTED  BY  A  CYLINDER  BOTTOM  AND 

A  CYLINDER  TOP,  REGIONS  6  AND  7 

RESPECTIVILY,  TO  BE  INCLUDED  IN  THE 

LATTERAL  SURFACE  AREA.  THIS  IS 

CONS I ST ANT  WITH  THE  AREA  ASSUMED 

FOR  HEAT  LOSS  IN  THE  DEVELOPMENT 

OF  THE  OHTC. 


1  119 

i 

i  125 


I  126 


IF  (NN.  EQ.  1 )  GO  TO  126 

WRITE  (LO,  125)  (PRT(L ) ,  1_»1 ,  PV) ,  J,  U,  J,  GR 
FORMAT  (<PV>A1,  'PREDICTED  OHTC  FOR  NODE  ' 

1,  14,  T47,  F10.  2,  '  W/M**2*C',/ 

2,  '  PREDICTED  HEAT  FLUX  FOR  NODE  ' 

3,  14,  ':  ',  T49,  F10.  2,  '  W/M**2',//> 

IF  (BR.  EQ.  1.  OR.  BR.  EQ.  9.  OR.  (BR.  EQ.  4.  AND.  ATT.  EQ.  0)  ) 
1  GO  TO  142 


13  CONTINUE 

142  G  <  BR ) *G  <  BR ) /SAM ( BR )  !W/M**2 

U»US/UN 

WRITE  <LO.  144)  < PRT <L > ,  L*1 ,  PV) ,  BR,  U,  BR,  G(BR ) ,  BR,  QALL(BR ) 
144  FORMAT  <<PV>A1,  'PREDICTED  OHTC  FOR  REGION  ',11,  ':  '.  T47 

1,  FIO.  2,  '  W/M**2*C  ',  / 

2,  '  PREDICTED  UNIT  HEAT  FLUX  FOR  REGION  ',11 

3,  ':  ',T49,  FIO.  2,  '  W/M**2',/,  '  ALLOWABLE  UNIT  HEAT  FLUX  ' 

4,  'FOR  REGION  ' ,  1 1,  ' :  T49,  FIO.  2,  '  W/M**2  ' ) 

GA ( BR ) =GALL ( BR ) *SAM ( BR ) 

GP ( BR ) *Q ( BR ) *SAM ( BR  > 

QSUPP ( BR ) «GP ( BR ) -GA < BR ) 

GSUP-G ( BR ) -GALL ( BR ) 

WRITE  (LO,  131)  QSUP,  BR,  GP(BR), BR,  GA(BR),  QSUPP(BR) 

131  FORMAT  ('  REQUIRED  SUPPLEMENTARY  HEAT  FLUX:  ',T49,  FIO.  2 

1,  '  W/M**2  ',  / 

2,  '  PREDICTED  RATE  OF  HEAT  LOSS  FOR  REGION  ',11,  ':  ' 

3,  TSO,  FIO.  2,  '  WATTS',/,  '  ALLOWABLE  RATE  OF  HEAT  LOSS  ' 

4,  'FOR  REGION  ',  1 1,  ' :  T50,  FIO.  2,  '  WATTS',/ 

5,  '  REQUIRED  SUPPLEMENTARY  HEATING:  ',T50,  FIO.  2 

6,  '  WATTS') 

IF  (QCOMP.  NE.  'Y')  GO  TO  148 
P(I, 3)=T1 

PCI.  5)=*Q<BR)  !  WATTS/M2 

P  <  1 ,  7 ) -US/UN  ! WATTS /M2*C 

PCI,8)»TDMS  ! T  DES.  MEAN  SKIN 

P(I,9)*TA  !T  AMBIENT 

TEXPT*0.  0 

UEXPT=0.  0 

GEXPT-O.  0 

SWGTT-O. 0 

SWGTQ-O.  0 

SWGTU-O.  0 

DO  1437  L-l. 2 

M»COR(BR, L) 

IF  (M.  EG. -1)  GO  TO  1437 

C  DROP  VALUE  &  WEIGHT  FROM  SUM  IF  'T'  VALUE  O  0.0 
IF  (EXP(M+13).  LE.  0.  0)  GO  TO  1435 
TEXPT-TEXPT+(WGT(M)*EXP(M+13> ) 

SWGTT-SWGTT+WGT ( M ) 

C  DROP  VALUE  &  WEIGHT  FROM  SUM  IF  'Q'  VALUE  O  0.0 

1435  IF  <EXP(M+1).  LE.  0.  0)  GO  TO  1436 

GEXPT-GEXPT+EXP (M+l )  ! WATTS 

SWGTG-SWGTQ+WGT  <  M ) 

C  DROP  VALUE  it  WEIGHT  FROM  SUM  IF  'Q'  VALUE  <■  0.0 

1436  IF  <EXP(M+1 ).  LE.  0.  0.  OR.  EXP(M+13).  LE.  0.  0)  GOTO  1437 
UEXP T-UEXPT+  <  EXP  <M+1 > / (EXP (M+l 3) -TA  > ) 

SWGTU-SWGTU+WGT ( M ) 

1437  CONTINUE 

IF  (SWGTT.  EG.  0.  0)  GO  TO  1438 

TEXPT-TEXPT/SWGTT 

1438  IF  (SWGTQ.  LE.  0.  0)  GO  TO  1439 

QEXPT«QEXPT/(TAR*SWGTG>  !W/M2 
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1439  IF  (SWGTU.  EQ.  0.  0)  GO  TO  1440 
UEXPT*UEXPT/ <  SWGTU*TAR ) 

1440  P(I,2)»TEXPT 
P ( I»  4)*QEXPT 
P  ( I,  6 )«UEXPT 
M»2 

PU(1>»',  ' 

PU(2)  =  'i  ' 

IF  (COR(BR,  2).  EQ. -1)  M=1 
IF  <M.  EQ.  1)  PU(1>=';  ' 

WRITE  (LO, 1441)  (COR(BR,  L>,  PU(L),  L=l*  M), BR»  TEXPT 

1,  (COR ( BRi L ) »  PU(L) »  L*1 ,  M) , BR,  UEXPT 

2,  (COR(BR,  L),  PU(L),  L-l,  M>,  BR,  QEXPT 

1441  FORMAT  ('  WGT ' 'ED  EXP  "T  TEMP,  SITE(S)  ' 

1,  <MX  12,  A1 ) i  '  REGION  M1,':',T54 
2/F10  2/  *  C  ' »  / 

3,  '  WGT' 'ED  EXP"T  OHTC,  SITE(S)  ' 

4,  <M> ( 12,  A1 ) ,  '  REGION  Ml,  ':',T47 

5,  F10.  2,  '  W/M**2*C  ',  / 

6,  '  WGT  "ED  EXP"T  HEAT  FLUX,  SITE(S)  ' 

7,  <M>(  12,  A1 ) ,  '  REGION  Ml,  ':',T49 

8,  F10.  2,  '  W/M**2 ' ) 

148  WRITE  (LO,  149)  (IB,M=1,32) 

149  FORMAT  ('  ',  32A2> 

IF  (QCOMP.  NE.  'Y')  GO  TO  360 

150  CONTINUE 

IF  ( ITOT.  EQ.  -1.  AND.  BR.  GT.  1  >  GO  TO  152 
PRT(l)-'( ' 

LCL-2 

IF  <REU.  EQ.  'S')  GO  TO  1501 
PRT(2)»'U' 

!  PRT(3)»'N' 

LCL-4 

1501  DO  1502  M-2, 10 

PRT(LCL)-PRTL(M) 

|  1502  LCL-LCL+1 

I  PRT(LCL)* ' ) ' 

WRITE  (5,  151 ) 

I  151  FORMAT  ( '*D0  YOU  WISH  TO  PLOT  T"S,  Q"S,  AND  U"S?  ' 

1,  '(Y/N)  ') 

READ  (5,32)  PLD 
IF  (PLD.  NE.  'Y')  GO  TO  249 
1510  LABEL(1)-'T  C' 

LABEL(2)-'Q  W/M2 ' 

LABEL(3)«'U  W/M2*C ' 

|  WRITE  (5,1511)  (LABEL(M),  (SCALY(M, N), N-l, 3), M-l,  3) 

!  1511  FORMAT  ('  ',  10X,  'Y-AXIS  SCALE  FACTORS ', // 

1,  10X,  7X,  'LY',  10X,  7X,  'SY',  10X,  7X,  'IY',  / 

!  2,  3(  IX,  A8,  IX,  3(F10.  2,  9X>, />,  / 

3, '^SELECT:  ( 1-T, 2-Q, 3«U, X-NO  MORE  CHANGES)  ') 

READ  (5,32)  IT 

IF  (IT.  EQ.  'X')  00  TO  1517 

DECODE  (1,1514,  IT)  L 
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1514  FORMAT  (ID 

IF  (L.  LE.  0.  OR.  L.  GE.  4)  GO  TO  1517 
WRITE  (5,1515)  LABEL (L) 

1515  FORMAT  (  CENTER A8,  '  LY,  SY,  IY  SEPARATED  BY  COMMAS:  ' 

1'  CF3  ') 

READ  (5,1516)  (SCALY(L, M) , M-l,  3) 

1516  FORMAT  (3F10.  3) 

GO  TO  1510 

1517  WRITE  (5,1518)  LX, SX,  IX 

1518  FORMAT  ('  ',  10X,  'X-AXIS  (TIME)  SCALE  FACTORS ', // 

1,  10X,  7X»  'LX',  10X,  7X»  'SX',  10X,  7X,  'IX',  / 

2,  (IX,  'T,  Q,  U  MIN',  3(F10.  2,  9X>,  />,  / 

3,  '9CHANGE  X-AXIS?  (Y/N)  ') 

READ  (5,32)  IT 

IF  (IT.  NE.  'Y')  GO  TO  152 
WRITE  (5,1519) 

1519  FORMAT  ( '*ENTER  LX,SX, IX  SEPARATED  BY  COMMAS:  CFD  ') 
READ  (5.1516)  LX,  SX,  IX 

GO  TO  1517 

152  IF  (PLD.  NE.  'Y')  GO  TO  249 

!  DO  200  K-l, 3 

|  CALL  NEWDEV  (,  'DRO:  COMPAR.  VEC ',  14) 

CALL  PLOTST  (4,  'IN',  1) 

CALL  PLOT  (1.  0,  1.  0,-3) 

I  CALL  AXIS  (0.  0,0.  0,  'TIME  (MIN) ', -10,  LX,  0.  0,  SX,  IX) 

GO  TO  (190. 170,  180)  K 

190  LY-SCALY(K,  1) 

SY-SCALY(K,  2) 

IY=SCALY(K,  3) 

LYS-LY 

CALL  AXIS  (0.  0,  0.  0,  'TEMPERATURE  (C  ) ', +15,  LY,  90.  0,  SY,  1Y) 
LABEL (1 )»'T-EXPT  ' 

LABEL ( 2 ) * ' T-PRED  ' 

OPEN  (UNIT-6,  NAME- 'DR: COMPAR.  OUT') 

WRITE  (6,191)  BREG(BR),  LY,  SY,  IY 

191  FORMAT  ('  ' ,  7X»  1 A8,  /,  '  ',  7X.  'LY:  '.  F7.  2,  5X,  'SY:  ' 

1,  F7.  2,  5X,  'IY:  ' 

2,  F7.  2, /,  '  ',  7X,  '#  INDICATES  POINT  NOT  PLOTTED?  ' 

3,  '  ITS  VALUE  IS  O  0  OR  <  SY',  f 

4,  12X,  '  TIME  ' ,  12X,  '  T-EXPT  MOX 

5, '  T-PRED  ',/) 

CALL  PL0TD(1,  SYM,  BR) 

CALL  PLOTND 

CLOSE  (UNIT-6) 

GO  TO  200 

170  LY»SCALY(K,  1 ) 

SY»SCALY(K,  2) 

IY-SCALY (K,  3) 

LYS-LY 

CALL  AXIS  (0.0,  0.0,  'HEAT  FLUX  (W/M2)  ',+19,  LY 

1, 90.  0,  SY,  IY) 

LABEL ( 1 ) - ' Q-EXPT  ' 

LABEL ( 2 ) - ' Q-PRED  ' 
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OPEN  < UNIT-6,  NAME- ' DR : COMPAR.  OUT ' ) 

WRITE  (6,171)  BREG(BR),  (PRT(M),  M-l,  LCL),  LY,  SY,  IY 
171  FORMAT  ('  7X,  1A8,  <LCL>A1,  /,  '  ',  7X,  'LY:  F7.  2,  5X,  'SY:  ' 

1,  F7.  2,  5X,  'IY:  ' 

2,  F7.  2,  /,  '  ',  7X»  '*  INDICATES  POINT  NOT  PLOTTEDi  ' 

3,  '  ITS  VALUE  IS  <-  0  OR  <  SY',/ 

4,  12X,  '  TIME  ',  12X,  '  Q-EXPT  ',  10X 

5, '  Q-PRED  ',/) 

CALL  PL0TD<3, SYM, BR ) 

CALL  PLOTND 

CLOSE  (UNIT-6) 

GO  TO  200 

180  LY»SCALY(K, 1) 

SY»SCALY(K,  2) 

IY— SCALY (K, 3) 

LYS-LY 

CALL  AXIS  (0.  0,  0.  0,  'QHTC  ( W/M2*C > ' , +13,  LY, 90. 0, SY,  IY) 
LABEL ( 1 )- 'U-EXPT  ' 

LABEL ( 2 ) - 'U-PRED  ' 

OPEN  (UNIT-6,  NAME- 'DR: COMPAR. OUT') 

WRITE  (6,181)  BREG(BR),  (PRT(M), M-l,  LCL),  LY,  SY,  IY 

181  FORMAT  ('  ',  7X,  1A8,  <LCL>A1, /,  '  ' ,  7X.  'LY:  ' ,  F7.  2,  5X,  'SY:  ' 

1,  F7.  2,  SX,  'IY:  ' 

2,  F7.  2, /,  '  ',  7X,  '*  INDICATES  POINT  NOT  PLOTTEDi  ' 

3,  '  ITS  VALUE  IS  <»  0  OR  <  SY',  / 

4,  12X,  '  TIME',  14X,  '  U-EXPT  ',  10X 

5, '  U-PRED  ',/) 

CALL  PL0TD(5. SYM, BR) 

CALL  PLOTND 

CLOSE  (UNIT-6) 

200  CONTINUE 

249  IF  ( ITOT.  EQ.  -1.  AND.  BR.  GT.  1 )  GO  TO  320 

WRITE  (5,300) 

300  FORMAT  ( '*D0  YOU  WISH  TO  PLOT  NORMALIZED  T"S  AND' 

1,  '  BIOT  #"S  ?  (Y/N)  ') 

READ  (5,32)  PLN 

IF  (PLN. NE. 'Y')  GO  TO  360 

310  LABEL ( 1 )- 'TN ' 

LABEL ( 2 ) - ' B I  ' 

WRITE  (5,311)  (LABEL (M),  (SCALYN(M,  N) ,  N-l,  3) »  M-l,  2) 

311  FORMAT  ('  ',  10X,  'Y-AXIS  SCALE  FACTORS',/ 

1,  '  ',  8X>  'NON-DIMENSIONAL  T"S  &  U"S',// 

2,  10X.7X,  'LY',  10X,  7X,  'SY',  10X,  7X,  'IY',  / 

3,  2(  1 X,  AS,  IX,  3(F10.  2,  9X>,  /  >,  / 

4,  '4SELECT:  ( 1-TN, 2-B I, X-NO  MORE  CHANCES)  ') 

READ  (5,32)  IT 

IF  (IT.  EG.  'X')  GO  TO  317 
DECODE  (1,314,  IT)  L 

314  FORMAT  (ID 

IF  (L.  LE.  0.  OR.  L.  GE.  4)  GO  TO  317 
WRITE  (5.315)  LABEL (L) 

315  FORMAT  (  '4ENTER ' , A8,  '  LY, SY,  IY  SEPARATED  BY  COMMAS:  ' 

1,  '  CF3  ') 
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READ  (5,316)  (SCALYN(L,  M) ,  M-l,  3) 

316  FORMAT  (3F10.  3) 

GO  TO  310 

317  WRITE  (5,318)  LX,  SX,  IX 

318  FORMAT  ('  ',  10X,  'X-AXIS  (TIME)  SCALE  FACTORS ', // 

1,  10X,  7X,  'LX',  10X,  7X,  'SX',  10X,  7X,  'IX',  / 

2,  (IX,  'TN,  BI  MIN  '*  3<F10.  2,  9X).  /),  / 

3,  '^CHANGE  X-AXIS?  (Y/N)  ') 

READ  (5,32)  IT 

IF  (IT. NE.  'Y')  GO  TO  320 
WRITE  (5,319) 

319  FORMAT  ( '4ENTER  LX, SX, IX  SEPARATED  BY  COMMAS:  CR3  ') 
READ  (5,316)  LX,  SX,  IX 

GO  TO  317 

320  IF  (PLN.  NE.  'Y'>  GO  TO  360 
DO  350  K-1,2 

CALL  NEWDEV  (,  'DRO:  COMPARN.  VEC ',  15) 

CALL  PLOTST  (4,  'IN',1> 

CALL  PLOT  (1.  0,  1.  0,  -3) 

CALL  AXIS  (0.  0,  0.  0,  'TIME  (MIN) ', -10,  LX,  0.  0,  SX,  IX) 

GO  TO  (330,340)  K 
330  LY-SCALYN(K,  1) 

SY-SCALYN(K,  2) 

IY»SCALYN(K,  3) 

LYS-LY 

CALL  AXIS  (0.  0,0.  0,  'NORMALIZED  TEMPERATURE ', +22,  LY 

1,  90.  0,  SY,  IY) 

LABEL ( 1 )» 'TN-EXPT  ' 

LABEL ( 2 ) = ' TN-PRED  ' 

OPEN  (UNIT-6,  NAME- 'DR: COMPARN.  OUT ' ) 

WRITE  (6,331)  BREG(BR),  LY,  SY,  IY 
!  331  FORMAT  ('  ',  7X,  1A8,  /,  '  ',  7X,  'LY:  ',  F7.  2,  5X,  'SY:  ' 
j  1,  F7.  2,  5X,  'IY:  ' 

2,  F7.  2, /,  '  '»  7X,  '*  INDICATES  POINT  NOT  PLOTTED*  ' 

|  3,  '  ITS  VALUE  IS  <-  0  OR  <  SY',/ 

4,  12X,  '  TIME  ',  13X,  '  TN-EXPT  ',  10X 

|  5,  '  TN-PRED  '.  /) 

i  CALL  PLOTN ( 1 ,  SYM ) 

CALL  PLOTND 
CLOSE  (UNIT-6) 

GO  TO  350 

340  LY»SCALYN(K,  1) 

I  SY»SCALYN(K»  2) 

I  IY»SCALYN(K,  3) 

LYS-LY 

i  CALL  AXIS  (0.0,  0.0,  'BIOT  NUMBER  ',  +1 1 ,  LY 

i  1, 90.  0,  SY,  IY) 

i  LABEL ( 1 )« 'BI-EXPT  ' 

j  LABEL(2>- 'BI-PR ED  ' 

i  OPEN  (UNIT-6,  NAME- 'DR: COMPARN.  OUT ' ) 

WRITE  (6,341)  BREO(BR),  (PRT(M),  M-l,  LCL),  LY,  SY,  IY 
j  341  FORMAT  ('  ',  7X,  1 A8,  <LCL>A1, /,  '  ',  7X,  'LY:  ',  F7.  2,  5X,  'SY;  ' 
1,  F7.  2,  5X,  'IY:  ' 
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2#  F7.  2/  /#  '  ' #  7X#  '*  INDICATES  POINT  NOT  PLOTTED#  ' 
i  3.  '  ITS  VALUE  IS  O  0  OR  <  SY',/ 

4#  12X<  '  TIME  13X,  '  BI-EXPT  ',10X 
5,  '  BI-PRED  ',  /> 

CALL  PLOTN<  5#  SYM) 

CALL  PLOTND 
CLOSE  (UNIT-6) 

I  350  CONTINUE 

I  360  IF  (LO.  EQ.  5)  CO  TO  361 

|  CLOSE  (UNIT-LO) 

361  IF  (ITOT. EQ. 0)  GO  TO  15 

14  CONTINUE 

15  CLOSE  (UNIT-2# DISPOSE- 'SAVE' > 

IF  (REU.  EQ.  'X')  00  TO  362 

CO  TO  30 

C*********************************************************** 
! THIS  CALL  TO  A  SYSTEM  LEVEL  SUBROUTINE  IS 
'.USED  TO  DE-ATTACH  THE  TERMINAL.  SEE 
! COMMENT  AT  TOP  OF  CODE  ABOUT  INITIAL 
!CALL  TO  'WTQIO ' 

362  CALL  WTQIO  ("2000, “5) 

i  C  **********************«*************************-»*******•»*« 
!  STOP 

END 
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FUNCTION  REINIT < I ) 

REAL  A<5),B(5),C(9>,D(9>,E(9>,F<9),G(9>,H(9) 

COMMON  /SUIT/A,  C 

1.  /MISC/E,  0 

DATA  B/l.  63<  0.  1175,  2.  27,  0.  15875,  0.  17307/ 

1,  D/1.  0,  1.  0,  1.  0,  1.  0,  1.  0,  2.  0,  1.  0,  1.  0,  1.  0/ 

2,  F/23.  3,  60.  0,  49.  7,  42.  4,  85.  0,  97.  0,  98.  9,  125.  25 

3,  265.  86/ 

4,  H/2.  56,  2.  56,  2.  22,  3.  45,  3.  13,  12.  50,  2.  27,  2.  17,  3.  45/ 
00  TO  ( 10,  20,  30,  40)  I 

10  DO  11  J-l,  5 
A(J)»B< J> 

11  CONTINUE 
GO  TO  100 

20  DO  21  J*l, 9 

I  C(J)=D(J) 

|  21  CONTINUE 

]  GO  TO  100 

30  DO  31  J=*l,  9 
E ( J ) =F ( J ) 

31  CONTINUE 
GO  TO  100 

|  40  DO  41  J»l, 9 

G  ( J )  =*H  ( J ) 

!  41  CONTINUE 

j  100  REINIT-I 

j  RETURN 

I  END 
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REAL  FUNCTION  OHTC(SN) 

C - 

'.THIS  FUNCTION  SYNTHESIZES  THE  PRESSURE  AND  TEMPERATURE 
! DATA  AND  PRODUCES  A  VALUE  FOR  THE  OVERALL  HEAT  TRANSFER 
!  COEFFICIENT  IN  WATTS/SEC*C*(M**2)  FOR  THE  GARMENT 
! ENSEMBLE. 

! THE  GARMENT  ASSUMED  IS  THE  NAVY'S  DIVER  THERMAL 
! PROTECTION  ENSEMBLE 

! THE  UNDERGARMENT  IS  MODELED  AS  DESCRIBED  IN  THE  TEXT. 

! THE  OUTER  GARMENT  IS  MODELED  AS  A  SOLID  SLAB  OF 
! NEOPRENE  OF  THICKNESS  EQUAL  TO  OUTER  GARMENT  THICKNESS. 

! THE  HEAT  TRANSFER  COEFFICIENT  FOR  THE  OUTER  BOUNDARY 
! LAYER  IS  DETERMINED  FRON  EQUATIONS  DERIVED  FROM 
! EXPERIMENTAL  DATA.  (SEE  TEXT  FOR  DETAILS) 

C - 

C  OHTC  VARIABLES  DEFINED  IN  MODULE  OHTC 

! RDS  *  REGIONAL  DATUM  START«>  REGION  DEPTH  BELOW 
!  SHOULDER  REFERENCE  (RDS=0.  0  IF  LAYING 

!  HORIZONTAL) 

! CR  »  CONDUCTIVITY  RATIO->  RATIO  OF  THERMAL 

!  CONDUCTIVITIES  OF  AIR  AT  (0  MSW,  21.  1  C) 

!  AND  THE  SUIT  ENTRAPPED  GAS  AT  AMBIENT  DEPTH 

!  AND  PRESSURE. 

! DPCT  *  DECIMAL  */.  CHANGE  IN  THINSULATE  THICKNESS  AS  A 
•  FUNCTION  OF  HYDROSTATIC  PRESSURE  (DEPTH  BELOW 

!  SHOULDERS) 

!DZ  =  NODAL  DISTANCE  INCREMENT.  DISTANCE  BETWEEN 
!  NODES  IN  FINITE  DIFFERENCE  SOLUTION  FOR 

!  EACH  REGION.  EACH  CYLINDRICAL  REGION 

!  IS  DIVIDED  INTO  NODES  ALONG  IT'S 

!  LENGTH  ONLY.  SPHERES  ARE  TREATED  AS  HAVING 

!  A  SINGLE  NODE  AT  ALL  TIMES. 

! DZV  »  NODAL  DEPTH  INCREMENT.  DEPTH  CHANGE 
!  CAUSED  BY  EACH  NODE  WHEN  REGION  IS 

!  VERTICAL.  WHEN  THE  REGION  IS 

!  HORTIZONTAL  THE  NODES  STEP  OUTWARD 

!  IN  THE  HORTIZONTAL  DIRECTION. 

!  WHEN  THE  REGION  IS  VERTICAL  THE  NODES 

!  STEP  DOWNWARD  IN  THE  VERTICAL  PLANE. 

! EDS  =  ELEMENT  DISTANCE  FROM  SEA  LEVEL,  ELEMENT 
!  IMPLIES  DIFFERENTIAL  ELEMENT  OF  FINITE 

!  DIFFERENCE  EQUATIONS.  IE:  DEPTH  BELOW  SEA 

!  LEVEL  TO  THE  ELEMENT  OF  INTEREST) 

! SEP  -  START  OF  NODAL  ELEMENT  POSITION, 

!  DISTANCE  FROM  THE  STARTING  END  OF  THE  REGION 

!  TO  THE  START  OF  THE  NODAL  ELEMENT. 

! SEPV  -  STARTING  DEPTH  OF  THE  NODAL  ELEMENT  FROM 
!  BEGINNING  DEPTH  Cr  THE  REGION 

!MT  -  MEAN  TEMPERATURE  BETW.  AMBIENT  AND  THE  SKIN 
!  SURFACE.  ESTIMATED  TEMPERATURE  OF  THE  GAS 

!  ENTRAPPED  IN  THE  UNGERGARMENT. 

! RDM  -  REFERENCE  DEPTH  (RD)  CONVERTED  TO  METERS  OF 
!  SEA  WATER.  (RD  ■>  DEPTH  FROM  SEA  LEVEL  TO 
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SHOULDERS) 

RED  *  REGIONAL  ELEMENT  DEPTH,  DEPTH  BELOW  SHOULDERS 
TO  MID-POINT  OF  THE  ELEMENT  OF  INTEREST. 

(NOTE:  IF  SUBJECT  LAYING  HORTI ZONTAL  (ATT-2) 
THEN  RED-O.  0 ) 

ROBL  -  THERMAL  RESISTANCE  DUE  TO  THE  PRESENCE  OF  THE 
BOUNDARY  LAYER  ON  THE  OUTSIDE  SURFACE  OF  THE 
OUTER  GARMENT 

ROG  -  THERMAL  RESISTANCE  DUE  TO  THE  PRESENCE  OF  THE 
OUTER  GARMENT 

RUG  -  THERMAL  RESISTANCE  DUE  TO  THE  PRESENCE  OF  THE 
UNDER  GARMENT 

SRUGA  -  SPECIFIC  THERMAL  RESISTANCE  OF  THE 

UNDERGARMENT  DUE  TO  THE  ENTRAPPED  GAS  AT  THE 
AMBIENT  TEMPERATURE  AND  PRESSURE  ONLY. 

SRUGHA  »  SPECIFIC  THERMAL  RESISTANCE  OF  THE 

UNDERGARMENT  DUE  TO  BOTH  HYDROSTATIC  SQUEEZE 
AND  THE  AMBIENT  GAS  AT  DEPTH 
RUGHA  =  THERMAL  RESISTANCE  OF  THE  UNDER  GARMENT  DUE  TO 
BOTH  HYDROSTATIC  SQUEEZE  AND  THE  AMBIENT  GAS 
AT  DEPTH  (IN  UNITS  OF  CLO'S) 

RUGHAJ  -  THERMAL  RESISTANCE  OF  THE  UNDER  GARMENT, 

RUGHA,  CONVERTED  FROM  CLO'S  TO  SEC*C*M2/J 
OR  C*M2/WATT 

R1  «  RADIUS  FROM  CENTER  OF  CYLINDER /SPHERE  TO  EDGE 

OF  THE  CYLINDER /SPHERE  (M> 

R2  »  RADIUS  FROM  CENTER  OF  CYLINDER/SPHERE  TO 
OUTSIDE  EDGE  OF  THE  UNDERGARMENT  (M> 

R3  -  RADIUS  FROM  CENTER  OF  CYLINDER/SPHERE  TO 
OUTSIDE  EDGE  OF  OUTER  GARMENT  (M) 

TR2  *  THICKNESS  OF  THE  UNDERGARMENT,  WUGO,  AT  DEPTH 
THICKNESS  REDUCED  DUE  TO  HYDROSTATIC  SQUEEZE 
T3  »  TEMPERATURE  OF  THE  OUTER  SURFACE  OF  THE 
OF  THE  OUTER  GARMENT 

♦NOTE*  FLAG1, FTQL, TTOL, NTOL,  AND  REAL  FUNCTION  F  ARE 
ALL  INVOLVED  IN  FINDING  THE  OUTSIDE  SURFACE 
TEMPERATURE,  T3,  OF  THE  OUTER  GARMENT  USING  THE  SECANT 
METHOD  OF  FINDING  THE  REAL  ROOTS  OF  THE  FUNCTION  F. 
FLAG1  »  FLAG  INDICATING  RESULTS  OF  THE  SECANT  METHOD 
FOR  FINDING  THE  OUTSIDE  SURFACE  TEMP.  OF  THE 
OUTER  GARMENT 

-  -3  ->  ESTIMATE  OF  OUTSIDE  SURFACE  TEMP.  >  OR  - 

AMBIENT  TEMPERATURE 

-  -2  »>  MAX  ALLOWED  NUMBER  OF  ITERATIONS  , NTOL, 

EXCEEDED. 

-  -I  ->  VALUE  OF  FUNCTION  F  AT  NEW  TEMP. 

EQUALS  VALUE  OF  F  AT  OLD  TEMP. 

■  1  «>  COMPUTED  CHANGE  IN  TEMPERATURE 

LESS  THAN  OR  EQUAL  TO  MINIMUM  ALLOWED 

TEMPERATURE  SPECIFIED  (TTOL). 

-  2  ->  NEW  VALUE  OF  FUNCTION  F  LESS  THAN  OR 

EQUAL  TO  MINIMUM  ALLOWED  VALUE  , FTOL. 
FTOL  »  MINIMUM  ALLOWED  VALUE  OF  THE  FUNCTION  F 
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I  TTOL  *  MINIMUM  ALLOWED  VALUE  FOR  THE  TEMPERATURE  STEP 
!  AT  EACH  ITERATION 

I NTOL  -  MAXIMUM  ALLOWED  NUMBER  OF  STEPS  THE  SECANT 

!  PROCEDURE  CAN  TAKE 

!  TNI  ■  NEW  ESTIMATE  OF  THE  TEMPERATURE 

I  TNO  -  OLD  ESTIMATE  OF  THE  TEMPERATURE 

IDT  -  DIFFERENCE  BETW.  OLD  AND  NEW  TEMPERATURE 

!  ESTIMATES 

I B  ■  ARRAY  CONTAINING  BODY  DIMENSIONS  FOR  THE  9 

I  REGION  MODEL  MAN. 

! COR  *  ARRAY  CONTAINING  THE  CORRESPONDENCE  BETWEEN 
I  THE  9  REGION  AND  12  SEGMENT  MODELS 

! WGT  -  ARRAY  CONTAINING  THE  12  SEGMENTAL  HODY 
I  SURFACE  AREA  WEIGHTS. 

!*NOTE*  THE  FOLLOWING  VARIABLES  USED  IN  THIS  MODULE 
I  WERE  DEFINED  IN  MODULE  -  MAIN 

I  ATT. BR. COG, DR, FLAG2,  LO. NN.  RD,  RDU,  SRO.  TA, 

I  TDMS,  WOG,  WUGO,  TWUGO 

l*NOTE*  THE  FOLLOWING  VARIABLES  USED  IN  THIS  MODULE 
I  ARE  TEMPERARY  VARIABLE  AND  HAVE  NO  PERM INANT  MEANING 
I  I,  N 

INTEGER  ATT, BR,  SN,  FLAG2,  FLAG 1 ,  COR 
REAL  MT 
BYTE  RDU 

COMMON  /BQDY/B (9,  3),  COR (9,  2),  WGT (12) 

1,  /DEBUG/FLAG2,  LO 

2,  /OHTCD/RUGHA,  RUG,  ROG,  ROBL.  Rl,  R2,  R3,  Tl,  T3,  FLAG1 

3,  G1A,  G13 

4,  /PROB/BR,  ATT,  RD,  RDM,  TA,  NN.  TDMS,  DZ.  DZV,  FLAG3,  RDS 

5,  RDU 

6,  /SUIT/ WUGO, DR,  SRO,  WOG, COG,  TWUG0(9> 


! NTOL, FTOL, TTOL  ARE  TOLERANCE  LIMITS  USED  IN  FINDING 
!T3  BY  THE  SECANT  METHOD  SUCH  THAT  F(T3)‘V»0: 

!NTOL->  MAXIMUN  NUMBER  OF  ITERATIONS  ALLOWED 
!FTOL»>  ZERO  TOLERANCE.  IF  F(T3>  IS  O  FTOL 
!  THEN  F(T3)‘',-0 

!TTOL»>  ZERO  TOLERANCE  FOR  THE  DIFFERENCE  BETWEEN 
!  T3 ( NEW )  AND  T3(0LD>. 

!  IF  < T3 < NEW ) -T3 ( OLD ) )  O  TTOL  THEN  DIFFERENCE  IS 

!  ASSUMED  'v»  0 

DATA  NTOL,  FTOL,  TT0L/300,  1.  OE-7,  1.  OE-3/ 


RDS-O.  0 
RED-O.  0 
DPCT-O.  0 

IF  (ATT.  EG.  2)  GO  TO  13  I2-PR0NE 
!  ATT-0  OR  ATT-1  (SIT, STAND) 

IF  (BR. GT. 1 )  GO  TO  10 
RDS-B  (BR,  2>*(**1.  0) 

GO  TO  13 

IF  (BR.  EQ.  2)  GO  TO  13 


10 
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N=2 

11  IF  (BR.  GE.  7.  AND.  BR.  LE.  9)  N-7 

IF  <BR. EQ.  7)  GO  TO  13 
DO  12  I-N,  BR-1 

IF  (  I.  EQ.  4.  AND.  ATT.  EQ.  0)  GO  TO  110 
RDS-RDS+B( I.  3) 

GO  TO  12 

110  RDS-RDS+  ( S  ( I,  2 )  /2.  0) 

12.  CONTINUE 

IF  (BR.  NE.  4.  OR.  ATT.  NE.  0)  GO  TO  13 
!BR-4  AND  ATT-0 
RDS-RDS- ( B  ( BR ,  2 )  /2.  0  > 

13  IF  (BR.  NE.  1.  AND.  3R.  NE.  9)  GO  TO  131 
!BR»1  OR  BR-9 

DZ=B (BR. 2) 

SEP-O.  0 
SEPV=0.  0 
DZV=«B ( BR.  2) 

IF  (ATT.  EQ.  2)  DZV-O.  0 
GO  TO  14 

131  DZ-B  ( BR,  3)  /FLOAT <NN) 

SEP=DZ*FLOAT (SN-1 ) 

DZV— B (BR,  3)/FL0AT(NN) 

IF  (ATT.  EQ.  2)  DZV-O.  0 

IF  (ATT.  EQ.  0.  AND.  BR.  EQ.  4)  DZV-B(BR,2) 

SEP V-DZ V*FLQAT ( SN- 1 ) 

IF  (ATT.  EQ.  2)  SEPV-O.  0 

IF  (ATT.  EQ.  0.  AND.  BR.  EQ.  4)  SEPV-O.  0 

14  RDM=RD 

IF  (RDU.  NE.  'PM  GO  TO  15 
RDM*RD/1.461  11.461  PSI/MSW 

15  IF  (RDU.  NE.  'F '  >  GO  TO  16 

RDM=RD*0.  3048  ! 0.  3048  MSW/FSW 

16  IF  (ATT.  EQ.  2>  GO  TO  20 
RED=RDS+SEPV+DZV/2.  0 
IF  (BR. EQ.  1)  GO  TO  20 

IF  (RED.  GT.  0.  1711)  GO  TO  17 
DPCT-2.  358E-2*RED*100.  0 
GO  TO  20 

!DPCT«>DECIMAL  PERCENT  CHANGE  IN  THICKNESS 
!**NOTE**  THE  MULTIPLICATION  OF  RED  BY  100.0  IS  TO 
!  CONVERT  THE  UNITS  FROM  METERS  TO  CENTIMETERS 

17  DPCT«0.  343+ (3. 784E-3*RED*100.  0>- 
1(1.  345E-5*( (RED*100.  0>*+2>) 

!TR -ESTIMATED  REGIONAL  TEMP.  (12  POINT  MODEL  CONVERTED 
!  TO  9  POINT  MODEL) 

20  MT-(Tl+TA)/2.  0 
EDS-RDM+RED 

CR-TC(21.  1. 0)/TC(MT,  EDS)  ! CONDUCTIVITY  RATIO 

21  SRUGA- ( SRO+CR ) 

SRUGHA-SRUGA* ( 1 .  O-DR+DPCT) 

RUGHA- ( SRUGHA*WUGO*TWUGO ( BR ) ) * ( 1 .  O-DPCT )  ! CLO  ' S 
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!  **  NOTE  ** 

! RUGHA  IS  IN  CLO'S 

! RUOHAJ  IS  RUGHA  CONVERTED  TO  (SEC*C*M2/ J)«(C*M2/WATT) 

i 

RUGHA J*RUGHA*0 .  15477  !0.  15477  M2*C/WATT/CL0 

IF  (FLAG2.  EG.  0)  GO  TO  30 

WRITE  ( LO/  22 )  DZ,  DZV,  SEP,  SEPV.  RDM,  RED,  DPCT 

1,  Tl,  MT,  EDS,  TC(21.  1,  0 ) ,  TC  (MT,  EDS ) ,  CR 

2,  SRUGA,  SRUGHA,  RUGHA,  RUGHAJ 

22  FORMAT  <'  DZ,  DZV  ' ,  IP,  2G1 5.  7,  / 

1,  '  SEP,  SEPV',  2G15.  7,  / 

2, '  RDM,  RED,  DPCT',  3G15.  7,  / 

3, '  Tl,  MT,  EDS',  3G15.  7,  / 

I  4,'  TC  (21 .  1 ,  0 ) ,  TC (MT,  EDS )  '«  2G15.  7,  /,  '  CR',G15.7 

5, '  SRUGA,  SRUGHA',  2G1 5.  7,  / 

6,  '  RUGHA',  G1 5.  7,  'CLO  RUGHAJ  ' ,  G1 5.  7 

!  7,  'M2*C/WATT ' ) 

30  R1=B(BR,  2>/2.  0  !M 

TR2»(WUG0*TWUG0(BR>*(1.  O-DPCT) J/100.  0  !M 
R2-R1+TR2  !M 

R3»R2+(W0G/100.  0)  !M 

RUG-R1*RUGHAJ*L0G(R2/R1)/TR2  !M2*C/WATT 
ROG=R 1 *L0G ( R3/R2 ) /COG  !M2*C/WATT 
!  *******#*****-***#***#*************-»********-»********** 
!  USING  SECANT  METHOD  TO  FIND  TEMPERATURE  OF  OUTSIDE 
!  SURFACE  OF  OUTER  GARMENT  (T3>. 

!  ASSUME  (Tl+TA) /2.  0  <=  T3  <=  TA 
! ****************************************************** 
i 

! ****#*************«^********************************* 

!  TA+(TA*0.  01 )  USED  AS  INITIAL  END  POINT,  TO  AVOID 
!  DETERMINATION  OF  'GRPR '  PRODUCT  WHEN  THE  WALL 
!  TEMPERATURE  »  AMBIENT  TEMPERATURE 
TN0-TA+(TA*0.  01 ) 

! ***************************************************** 
TNl»(Tl+TA)/2.  0 
IF  (TN1.LE.  TA)  GO  TO  430 
I  N-l 

DT-TN1-TN0 
i  40  N-N+l 

IF  (N.  GT.  NTOL)  GO  TO  45 
FO-F(TNO) 

Fl-F(TNl) 

IF  (FLAG3.  GT.  0.  0)  RETURN 
IF  ( ABS ( F 1 ) .  LE.  FTOL )  GO  TO  41 
IF  (  (Fl-FO).  EG.  0.  0)  GO  TO  44 
DT»F1*DT/(F0-F1 ) 

|  TN0-TN1 

TN1-TN1+DT 

IF  (TN1.LE.  TA)  GO  TO  430 
IF  (ABS(DT).  LE.  TTOL)  GO  TO  42 
GO  TO  40 

I  41  FLAG 1*2  !FTQL  SATISFIED 
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00  TO  43 

FLA©1*1  ! TTQL  SATISFIED 

T3-TN1 

IF  <T3.  OE.  TA>  00  TO  431 

FLA01—3 

00  TO  4t'» 

RQBL»R 1 / ( R3*CHTC ( T3,  R3 ) ) 

OHTOl.  0/  ( RUO+ROG+ROBL ) 

00  TO  46 

FLAG1--1  i  F < TNI )— F <  TNO)  <  0 

00  TO  46 

FLA01»-2  ! NTOL  EXCEEDED 

IF  (FLA02.  EQ.  0)  00  TO  47 

TMP-F<TN1> 

WRITE  (LQ»  461 )  T3.  DT,  TNI,  TMP,  Q1A.  Q13 
FORMAT  <'  T3,  DT,  TNI  ',  IP,  3015.  7,  / 

1.  '  F(TN1),  Q1A.  013',  3015.  7> 

RETURN 

END 


on  on 
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REAL  FUNCTION  F(T) 


C  F(T)  VARIABLES  DEFINE  IN  MODULE  F(T) 

‘THIS  MODULE  IS  A  FUNCTION  SUBROUTINE  DEFINING 
! THE  FUNCTION  TO  BE  SOLVED  SUCH  THAT  F(T)'*0. 

! THE  FUNCTION  RELATES  THE  HEAT  LOSS  THRU  THE 
! COMPLETE  ENSEMBLE  TO  THAT  THRU  THE  UNDER  GARMENT 
! AND  THE  OUTER  GARMENT.  THE  UNKNOWN  IN  THIS 
! EQUATION  IS  THE  TEMPERATURE  AT  THE  OUTSIDE 
! SURFACE  OF  THE  OUTER  GARMENT. 

! THE  VALUE  OF  T3  PASSED  AS  T  IS  SUBSTITUTED  INTO  THE 
! EQUATION  FOR  F(T)  AND  THE  CALCULATED  VALUE  IS 
! PASSED  BACK  FOR  USE  IN  THE  SECANT  METHOD  OF  ESTIMATING 
!T3 


VARIABLES  NEEDED  FOR  CALCULATION  OF  F ( T) 

!C  =  FUNCTION  SUBROUTINE  FOR  CALCULATING  THE 

!  COEFFICIENT  OF  HEAT  TRANSFER  THRU  THE  FREE 

'.  CONVECTION  BOUNDARY  LAYER 

! IBR  -  BODY  REGION  OF  INTEREST,  BR,  PASSED  TO  THE 
!  SUBROUTINE 

!ROG  =  THERMAL  RESISTANCE  OF  OUTER  GARMENT 

! RUG  »  THERMAL  RESISTANCE  OF  UNDER  GARMENT 

•T  *  ARGUMENT  PASSED  TO  FUNCTION,  ESTIMATE 

!  OF  T3  TEMPERATURE  OF  OUTSIDE  SURFACE  OF 

!  THE  OUTER  GARMENT 

! TA  =  TEMPERATURE  -  AMBIENT 

!T1  =  TEMPERATURE  OF  THE  CYLINDER /SPHERE  SURFACE 

•T3  =  TEMPERATURE  OF  THE  OUTSIDE  SURFACE  OF  THE 

'.  OUTER  GARMENT 

!R1  -  RADIUS  TO  REGION  SURFACE/ INNER  GARMENT 

!  INTERFACE 

!R3  =  RADIUS  TO  OUTER  GARMENT/FLUID  BOUNDARY  LAYER 

!  INFERFACE 


♦NOTE*  THE  FOLOWING  VARIABLE  ARE  DEFINED  IN  PREVIOUS  MODULES 
!DZ,  DZV, FLAG 1 ,  I ATT ,  NN,  RD,  RDU, RUGHA,  Rl, R2, R3, TDMS 

C - 

BYTE  RDU 
INTEGER  FLAG1 

COMMON  /OHTCD/RUGHA,  RUG,  ROG,  ROBL,  Rl,  R2, R3, Tl,  T3,  FLAG1 

1,  Q1A,  Q13 

2,  /PROB/IBR,  I  ATT ,  RD,  RDM,  TA,  NN,  TDMS,  DZ,  DZV,  FLAGS,  RDS 

3,  RDU 

HC»CHTC(T, R3) 

IF  (FLAG3.  OT.  0.  0)  RETURN 
Q1A»(T1-TA)/(RUG+R0G+(R1/(R3*HC>  > ) 

Q13*<Tl-T)/( RUG+ROG  > 

F-Q1A-Q13 

RETURN 

END 
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REAL  FUNCTION  CHTC(T3,  R3) 

C - 

! THIS  FUNCTION  COMPUTES  THE  CONVECTIVE  HEAT  TRANSFER 
! COEFFICIENT  FOR  THE  OUTER  BOUNDARY  LAYER  IN 
' WATTS/SEC #C*(M#*2).  THE  EQUATIONS  USED  WERE 
! DERIVED  FROM  EXPERIMENTAL  DATA.  (SEE  TEXT  FOR  DETAILS) 

C - 

INTEGER  BR, COR, ATT, FLAG2,  LO 
REAL  LNU, LGRPR 
BYTE  RDU 

COMMON  /BODY/B (9, 3), C0R(9, 2), WGT(12> 

1/PROB/BR, ATT, RD, RDM.  TA,  NN,  TDMS,  DZ,  DZV,  FLAG3,  RDS 

2,  RDU 

3,  /DEBUG/FLAG2,  LO 

C - 

! **  NOTE  ** 

!  ALL  REFERENCES  TO  LOG  IMPLY  LOG  BASE  10  (L0G10) 


COEFFICIENTS  FOR  DETERMINATION  OF  THE  GRASHOF  AND 
! PRANDTL  NUMBER  PRODUCT. 

•USING: 

!  GRPR  =  (ALPHA )*(T  WALL  -  T  AMBIENT )*(L**3> 

! WHERE: 

!  LOG  (ALPHA)  «  BETA 1* (LOG  (T  FILM) >**BETA2 

!  ALPHA  »  G*BETA*RHQ**2*CP/MU*K 

!  T  FILM  »  (T  WALL  T  AMBIENT)  /  2.  0 

!  GRPR  »  GRASHOF#  *  PRANDTL# 

! THE  COEFFICIENTS  WERE  FOUND  BY  FITTING  THE  EQUATION  TO 
! EXPERIMENTAL  DATA,  SEE  TEXT  FOR  DETAILS. 


C 


C 


COEFFICIENTS  FOR  DETERMINATION  OF  THE  THERMAL 
! CONDUCTIVITY  OF  WATER  AS  A  FUNCTION  OF  TEMPERATURE  IN 
! DEGREES  C. 

! THE  COEFFICIENTS  WERE  FOUND  BY  FITTING  THE  EQUATION  TO 
! EXPERIMENTAL  DATA,  SEE  TEXT  FOR  DETAILS. 

!K  »  CFO  +  CF1*T 

DATA  BETA1, BETA2/9.  80714,  0.  12733/ 

1,  CFO,  CF1/0.  56662,  1.  7977E-3/ 


COEFFICIENTS  FOR  DETERMINATION  OF  LOG  (NU)  AS  A 
FUNCTION  OF  LOG  (GRPR)  FOR  VERTICAL  CYLINDERS 
LOG ( NU )  »  VCO  +  VC  1 * ( LOG ( GRPR ) )  +  VC2*( (LOG (GRPR ) >**2) 
THE  COEFFICIENTS  WERE  FOUND  BY  FITTING  THE  EQUATION  TO 
EXPERIMENTAL  DATA,  SEE  TEXT  FOR  DETAILS. 


C 


COEFFICIENTS  FOR  DETERMINATION  OF  LOG  (NU)  AS  A 
! FUNCTION  OF  LOO  (GRPR)  FOR  SPHERES 
! LOG ( NU )  -  SO*LOG(GRPR>  +  SI 

! THE  COEFFICIENTS  WERE  FOUND  BY  FITTING  THE  EQUATION  TO 
! EXPERIMENTAL  DATA,  SEE  TEXT  FOR  DETAILS. 
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C  COEFFICIENTS  FOR  DETERMINATION  OF  LOO  (NU)  AS  A 

! FUNCTION  OF  LOO  (GRPR)  FOR  HORTIZONTAL  CYLINDERS 
! LOG ( NU )  »  HCO*LQG ( GRPR )  +  HC1 

! THE  COEFFICIENTS  WERE  FOUND  BY  FITTING  THE  EQUATION  TO 
'.EXPERIMENTAL  DATA,  SEE  TEXT  FOR  DETAILS. 

DATA  VCO,  VC1,  VC2/9.  1934,-2.4128,0.  1817/ 

1,  SO,  Sl/O.  46486,  -1.  9726/ 

2,  HCO,  HC1/0.  2486,  -0.  4483/ 


CHTC 


VARIABLES  DEFINED  IN  MODULE  CHTC 
ALPHA  »  G*BETA*RH0**2*CP/MU*K 
BETA  =  LOG  (ALPHA) 

BETA1  a  COEFFICIENT  SEE  ABOVE 

BETA2  =  COEFFICIENT  SEE  ABOVE 

CF  a  THERMAL  CONDUCTIVITY  OF  WATER  AT  TEMPERATURE 
CFO  =  COEFFICIENT  SEE  ABOVE 

CF1  «  COEFFICIENT  SEE  ABOVE 

CL  =  CHARACTERISTIC  LENGTH  FOR  FREE  CONVECTION 

FOR  VERTICAL  CYLINDERS  =  LENGTH  OF  CYLINDER 
FOR  HORTIZONTAL  CYLINDERS  »  DIAMETER  OF 
CYLINDER 

FOR  SPHERES  a  DIAMETER 

GR  a  GRASHOF  NUMBER,  PRANDTL  NUMBER  PRODUCT 

HCO  »  COEFFICIENT  SEE  ABOVE 

HC1  a  COEFFICIENT  SEE  ABOVE 

LGRPR  a  LOG  (GRPR) 

LNU  =  LOG  (NU) 

NU  »  NUSSELT  NUMBER 

50  «  COEFFICIENT  SEE  ABOVE 

51  =  COEFFICIENT  SEE  ABOVE 

TF  »  TEMPERATURE  OF  FILM 

■  (T  SURFACE  +  T  AMBIENT  GAS>/2.  0 

VCO  »  COEFFICIENT  SEE  ABOVE 

VC1  =  COEFFICIENT  SEE  ABOVE 

VC2  -  COEFFICIENT  SEE  ABOVE 

B  a  ARRAY  CONTAINING  BODY  REGION  DIMENSIONS 

FLAG3  -  INTEGER  VARIABLE  USED  TO  INDICATE  SUCCESS  OR 
FAILURE  OF  THIS  SUBROUTINE. 

■  0. 0  CHTC  DETERMINED  SUCCESSFULLY 

»  1.0  CHTC  NOT  DETERMINED,  ESTIMATED  FILM 
TEMPERATURE  LESS  THAN  1.0 
-  2.  0  CHTC  NOT  DETERMINED,  GRASHOF*PRANDTL 
PRODUCT  IS  EQUAL  TO  ZERO. 


i 


•NOTE*  THE  FOLLOWING  VARIABLES  WERE  DEFINED  IN  PREVIOUS 
! MODULES: 

!BR,  TA,  T3 

l  - - 

C  *NOTE*  ARRAYS  COR  AND  WGT  ARE  PASSED  TO  THIS  MODULE  IN 
!  '.LABELED  COMMON  BUT  ARE  NOT  USED  IN  THIS  MODULE. 

!  - - 


FLAG3-0.  0 
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C 

C 

1 

C 

2 

C 

10 


105 

C 

11 


115 

C 

12 


125 

15 


20 


21 

22 


23 

24 


25 


GO  TO  (1,2)  ATT 
ATT-0  SITTING 

GO  TO  (11,  10,  10,  12,  10,  10,  10,  10,  11)  BR 
ATT-1  STANDING 

GO  TO  (11,  10,  10,  10,  10,  10,  10,  10,  11)  BR 
ATT-2  PRONE 

GO  TO  (11,  12,  12,  12,  12,  12,  12,  12,  11)  BR 

VERTICAL  CYLINDERS 

CL*B(BR,  3)  !M 

ASSIGN  105  TO  LRET 

GO  TO  20 

LNU*VCO+  ( VC  1  *LGRPR  >  +  ( VC2*  ( LGRPR**2.  0)  ) 

GO  TO  15 
SPHERE 

CL*2.  0*R3  !M 

ASSIGN  115  TO  LRET 
GO  TO  20 

LNU=(S0*LGRPR)+S1 
GO  TO  15 

HORTIZONTAL  CYLINDER 
CL-2. 0*R3  ! M 

ASSIGN  125  TO  LRET 
GO  TO  20 

LNU- ( HCO*LGRPR ) +HC 1 
CF«CF0+(CF1*TF)  !W/M*C 

CHTC* ( 10.  0**LNU ) *CF/CL  ! W/M2*C 
RETURN 

TF-(T3+TA)/2.  0 

IF  (TF.  LT.  1.  0)  GO  TO  21 

BETA*BETA 1 * ( LOG 1 0 ( TF  >  **BETA2 ) 

ALPHA* ( 10.  0**B£TA) 

GRPR*ALPHA* ( CL**3.  0)*(T3-TA) 

IF  (GRPR.  LE.  0.  0)  GO  TO  23 
LGRPR-LOGIO(GRPR) 

GO  TO  LRET 
WRITE  (LO, 22) 

IF  (LO.  NE.  5)  WRITE  (5,22) 

FORMAT  ('  SYSTEM  WILL  NOT  EXPONENTIATE  A  NEGATIVE  ', / 
l,  '  BASE  BY  A  REAL  EXPONENT', / 

2, 20X,  'RUN  TERMINATED  !') 

FLA03-1.  0 
RETURN 

WRITE  (LO, 24) 

IF  (LO.  NE.  5)  WRITE  (5,24) 

FORMAT  ( '  THE  LOGARITHM  OF  ZERO  ' 

1,  'IS  UNDEFINED',  / 

2, 20X, '  RUN  TERMINATED  !') 

FLAG3-2.  0 

RETURN 

END 
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REAL  FUNCTION  TR(TDMS, BR> 

C - 

'.THIS  FUNCTION  COMPUTES  THE  PREDICTED  REGIONAL 
! TEMPERATURES  FOR  THE  9  REGION  MODEL. 

! THE  PREDICTIVE  EQUATIONS  USED  WERE  DERIVED  FOR 
! THE  12  SEGMENT  HODY  MODEL  WITH  EXPERIMENTAL 
! DATA.  (SEE  TEXT  FOR  DETAILS) 

! THE  PREDICTIONS  FOR  THE  12  SEGMENTS  WERE 
! COMB  I NED  BY  A  WEIGHTED  SUM  USING  THE  HODY 
! WEIGHTS  CORRESPONDING  TO  THE  SUMMED  SEGMENTS. 

! THE  CORRESPONDENCE  BETWEEN  THE  9  REGION  AND  12  SEGMENT 
! MODELS  IS  SHOWN  IN  ARRAY  COR,  BELOW.  FOR  MORE  DETAIL 
! SEE  MODULE  MAIN 


ROW* 

9  REGIOM 

12  SEGMENT  MODEL 

OBR 

MODEL  NAME 

CORRESPONDING  SEGMENTS  NAMEUD#) 
ID  #'S  ARE  IN  ARRAY  C0R<9,2> 

1 

HEAD 

HEAD ( 1 ) ,  (-1) 

2 

TORSO 

CHEAT (2), UPPER  BACK (4) 

3 

ABDOMEN 

ABDOMEN (3), LOWER  BACK(5> 

4 

THIGH 

FRONT  THIGH(8). REAR  THIGH(IO) 

5 

CALF 

FRONT  CALF (9), REAR  CALF(ll) 

6 

FOOT 

FOOT ( 12 ) , (-1) 

7 

UPPER  ARM 

ARM ( 6  > ,  (-1 ) 

8 

LOWER  ARM 

ARM 16) i (-1 > 

9 

HAND 

WRIST ( 7 ) , (-1) 

NOTE  (-1)  INDICATES  THAT  ONLY 
ONE  CORRESPONDING  SEGMENT  IS 
AVAILABLE  FROM  12  SEGMENT  MODEL 


TR  VARIABLE  REQUIRED  AND  LOCALLY  DEFINED 

! TDMS  =  DESIGN  MEAN  SKIN  TEMPERATURE.  MEAN 
!  SKIN  TEMPERATURE  AT  WHICH  TO  COMPUTE 

!  THE  PREDICTED  REGIONAL  TEMPERATURES. 

!BR  »  BODY  REGION  OF  INTEREST.  ONE  OF  THE 
!  9  REGION  MODEL  REGIONS. 

! COR  ■  ARRAY  CONTAINING  CORRESPONDENCE  BETWEEN  9 
!  REGION  AND  12  SEGMENT  MAPS 

! SWGT  ■  SUM  OF  WEIGHTS  CORRESPONDING  TO  THE  12 

!  SEGMENTS  SUMMED. 

! PRED  ■  FUNCTION  SUBROUTINE  WHICH  CALCULATES  THE 
!  12  SEGMENTAL  PREDICTED  TEMPERATURES  AT 

!  A  GIVEN  MEAN  SKIN  TEMPERATURE,  TDMS 

!  AND  SEGMENT  J 

■WOT  »  ARRAY  CONTAINING  THE  12  HODY  SURFACE  WEIGHTS 


NOTE:  ARRAY  B  IS  PASSED  TO  THIS  MODULE  IN  LABELED 

COMMON  BUT  THIS  ARRAY  IS  UNUSED  IN  THIS  MODULE. 


NOTE:  VARIABLES  I  AND  J  ARE  TEMPORARY  VARIABLES  USED 
AS  DO  LOOP  INDICES  AND  COUNTERS. 


NOTE:  VARIABLES  I  AND  J  ARE  TEMPORARY  VARIABLES  USED 
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!  AS  DO  LOOP  INDICIES  AND  COUNTERS. 

INTEGER  COR. BR 

COMMON  /BODY/B  < 9,  3 ) ,  COR (9,2).  WGT (12) 

TR-O.  0 
SWGT-O.  0 

'.NOTE:  THERE  IS  NO  CHECKING  FOR  0.0  VALUES 

!  IN  THE  SUM  SINCE  THE  PREDICTED  VALUES 

!  CAN  NOT  BE  ZERO  UNLESS  TDMS*0.  0. 

!  TDMS  CAN  NOT  BE  ZERO  BY  ACCIDENT  IT 

!  MUST  BE  SPECIFIED  AS  ZERO  IF  THAT 

!  IS  THE  DESIRED  VALUE. 

DO  10  1-1,2 
J-COR(BR,  I) 

IF  (J.  EG.  -1)  GO  TO  10 
SWGT-SWGT+WGT(J) 

TR-TR+ ( PRED ( J,  TDMS ) *WGT ( J) ) 

10  CONTINUE 

TR-TR/SWGT 

RETURN 

END 


r>  n 
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REAL  FUNCTION  PRED(REG,  TSKM) 

C - 

! FUNCTION  FRED  DETERMINES  THE  PREDICTED  12  SEGMENTAL 
! TEMPERATURES  FROM  EQUATIONS  DERIVED  USING 
! EXPERIMENTAL  DATA  AND  BASED  ON  A  KERSLAKE 
! TYPE  MODEL.  (SEE  TEXT  FOR  DETAILS) 


I 


PRED 


C 


VARIABLES  REQUIRED  AND  LOCALLY  DEFINED 
REG  -  SEGMENT  FOR  WHICH  TO  PREDICT 
SKIN  TEMPERATURE 

TSKM  -  MEAN  SKIN  TEMPERATURE  TO  USE  AS 

INDEPENDENT  ARGUMENT  IN  THE  EQUATIONS. 
USUALLY  THE  DESIGN  MEAN  SKIN  TEMPERATURE. 
KA  «  ARRAY  CONTAINING  THE  COEFFICIENTS  FOR 
THE  PREDICTIVE  EQUATIONS 

KR  -  CONSTANT  USED  IN  THE  PREDICTIVE  EQUATIONS 


REAL  KA. KR 
INTEGER  REG 

COMMON  /PREDD/KA ( 12 ) , KR 
PRED-TSKM+  <  KA  <  REG ) *KR ) 
RETURN 
END 


1 
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REAL  FUNCTION  TC(TDC,Z> 


THE  FUNCTION  SUBROUTINE  TC(TDC.Z)  DETERMINES  THE 
THERMAL  CONDUCTIVITY  OF  AIR  CORRESPONDING  TO  THE  VALUES 
OF  TEMPERATURE,  T  C,  AND  PRESSURE,  Z  MSW  PASSED. 

THE  VALUE  IS  DETERMINED  BY  A  METHOD  OF  TWO 
DIMENSIONAL  LINEAR  INTERPOLATION  ADAPTED  FROM 
CARNAHAN,  LUTHER,  AND  WILKES,  "APPLIED  NUMERICAL 
METHODS",  P  63,  PRB  1.  28,  JOHN  WILEY  &  SONS,  INC.,  1969 
ARRAY  C  -  CONTAINS  THERMAL  CONDUCTIVITY  DATA  FOR  AIR  AT 

-  PRESSURES  -  14.  7,  30.  0,  50.  0,  100.  0,  200.  0  PSIA 

-  TEMPERATURES  -  30.  0,  50.  0,  70.  0.  90.  0,  110.  0, 

130.  0  F 

♦♦NOTE** 

CONDUCTIVITIES  HAVE  UNITS  BTU/SEC  FT  F 
AND  VALUES  MUST  BE  MULTIPLIED  BY  1.  0E-06 

DATA  TAKEN  FROM: 

-  U.  S.  NAVY  DIVING  GAS  MANUAL. 

-  NAVSHIPS  0994-003-7010,  1971 

-  PAGE  T-4  (AIR  DATA) 

LAYOUT  OF  ARRAY  C 


!  30.  0 

1  _ 

50.  0 

70.  0 

90.  0 

110.  0  130.  0 

14.  7 

!  3-  93 

4.  06 

4.  19 

4.  32 

4.  45  4.  58 

30.  0 

!3-  93 

4.  07 

4.  20 

4.  33 

4.  46  4.  59 

50.  0 

!  3.  95 

4.  08 

4.  21 

4.  34 

4.  47  4.  59 

100.  0 

!  3.  98 

4.  11 

4.  24 

4.  37 

4.  49  4.  62 

200.  0 

14.  03 

4.  16 

4.  29 

4.  42 

4.  54  4.  66 

Psia  i 


C*NOTE*  IF  THE  VALUE  OF  'C'  RETURNED  TO  CALLING  MODULE  IS 
! NEGATIVE  THEN  THE  VALUE  OF  'T '  OR  'Z '  WAS  OUT  OF 
! RANGE  FOR  THE  TABLE  STORED  IN  ARRAY  C. 


VARIABLES  REQUIRED  AND  LOCALLY  DEFINED 
*  TEMPERATURE  OF  INTEREST  IN  DEGREES  C 

-  DEPTH  BELOW  SURFACE  IN  METERS  OF  SEAWATER 

-  COMPONENT  OF  EQUATION  FOR  TC 
(SINGLE  TERM  COMPUTED  SEPARATELY) 

■  COMPONENT  OF  EQUATION  FOR  TC 
(SINGLE  TERM  COMPUTED  SEPARATELY) 

■  LOGICAL  UNIT  NUMBER  AT  WHICH  TO  PRINT 
INFORMATION. 

-  ABSOLUTE  PRESSURE  ->  DEPTH  IN  METERS  OF 
SEAWATER,  Z,  CONVERTED  TO  PSIA 

■  TEMPERATURE  DEGREES  F  ->  TEMPERATURE 
DEGREES  C,  TDC,  CONVERTED  TO  DEGREES  F 


NOTE:  VARIABLES  I.II.IJ  AND  J  ARE  TEMPORARY  VARIABLES 
USED  AS  DO  LOOP  INDICES  AND  COUNTERS. 


TDC 

Z 

A 

B 

LO 

P 

T 


BYTE  IG 
INTEGER  FLAG2 
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COMMON  /DEBUG/FLAG2*  LO 
2i  /TRNOSQ/C  ( 6,  7) 

C  CONVERT  Z  METERS  OF  SEA  WATER  TO  PS I  ABSOLUTE 

P«<  (64.  15*100.  0*Z )  /  (2.  54* ( 12.  0**3)  )  >  +  14.  7 
C  REDUCE  P  TO  1  SIGNIFICANT  DIGIT  AFTER  DECIMAL  PT 

P  =  ( ( AINT < (P+O.  05 ) *10.  0) )/10.  0) 

C  CONVERT  DEGREES  C  TO  F 

T-<  < (TDC+273.  15 )*1.  8) -459.  67) 

IF  <P.  LT.  C  <2/  1 ) .  OR.  T.  LT.  C  <  1»  2) 

1.  OR.  P.  GT.  C<6,  1 ).  OR.  T.  GT.  C<  1,  7)  )  GO  TO  20 
DO  10  1=2,  6 

IF  <C<I,  ll.LT.P)  GO  TO  10 
II«I 

IF  <C(I,  1).  NE.  P>  1 1*1 1  — 1 
GO  TO  12 

10  CONTINUE 
GO  TO  20 

12  DO  13  J«2, 7 

IF  <C(1,  J).  LT.  T)  GO  TO  13 
IJ=J 

IF  (C(l. J). NE.  T)  IJ-IJ-1 
GO  TO  15 

13  CONTINUE 
GO  TO  20 

15  B*<T-C(1, IJ))/(C(1» IJ+1)-C{1, IJ>> 

IF  <T.  EQ.  C ( 1<  IJ)  )  B«0.  0 
A"(P— C  (Hi  1>)/<C<II+1,  1>-CCII,  1)) 

IF  (P.  EQ.  C(II.  1)  )  A-0.  0 

TC»( (1.  0— A ) * ( 1 .  0-B ) *C ( 1 1 * IJ) )  +  < A*< 1.  0-B)*C(II  +  l,  IJ)) 
1  +  <B*( 1.  0-A ) *C  < 1 1 » IJ+1 ) )  +  ( A*B*C ( 1 1  +  1 .  IJ+1 ) ) 

CORRECT  TC  TO  BE  IN  WATTS/M*C 
1.0E-6  IS  APPLIED  TO  YIELD  CORRECT  VALUES 
TC«TC*<1.  OE-6 ) *6230.  551 
6230.  551  J/M*C/BTU/FT*F 

RETURN 
20  TC»0. 0 

WRITE(LO, 11)  T, P 

11  FORMAT  ('  10X,  'T»',  F10.  2,  '  OR  P-',F10.  2 

1,  '  OUT  OF  RANGE  OF  TABLE') 

RETURN 

END 
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SUBROUTINE  PLOTD ( I R .  PSYM.  BR ) 

C - 

'.PLOTD  IS  A  SUBROUTINE  FOR  PLOTTING  T'S.  Q'S.  AND  U'S 
I BOTH  PREDICTED  AND  EXPERIMENTAL  VERSUS  TIME. 


PLOTD  VARIABLES  REQUIRED  AND  LOCALLY  DEFINED 

IR  *  OFFSET  INTO  ARRAY  P  AT  WHICH  TO  PICK 
!  UP  BOTH  THE  PREDICTED  AND  EXPERIMENTAL  DATA. 

!  P (ROW. IR+1 )  »  EXPERIMENTAL 

!  P<ROW. IR+2)  -  PREDICTED 

!  PSYM  =  ARRAY  <  PSYM<2)  )  CONTAINING  THE  INTEGER 
!  NUMBERS  INDICATING  THE  SYM30LS  TO  BE  USED  FOR 

!  THE  EXPERIMENTAL  AND  PREDICTED  CURVES 

!  RESPECTIVELY.  (SEE  DIGITAL  EQUIPMENT  CORP. 

!  MANUAL  PLXY-11M,  USER'S  GUIDE  FOR  DETAILS) 

!  BR  *  BODY  REGION  WHICH  THE  EXPERIMENTAL  AND 
!  PREDICTED  VALUE  CORRESPOND  TO. 

! LYS  ■  Y-AXIS  LEVEL  FOR  LABLES.  INITIALLY  SET 
!  AT  LY 

! NREC  *  NUMBER  OF  TIME  RECORDS  TO  PLOT 

!  (IE:  1  TO  NREC) 

IDE  -  BYTE  VARIABLE  CONTAINING  EITHER 
!  OR  '  '  (SPACE).  IT  IS  USED  TO  FLAG 

!  THE  EXPERIMENTAL  DATA  POINTS  NOT 

I  PLOTED  BECAUSE  THEY  ARE  EITHER  <=*  0  OR 

!  <  SY.  SY  IS  THE  STARTING  VALUE 

I  FOR  THE  Y-AXIS. 

>DP  -  BYTE  VARIABLE  CONATAINING  EITHER 

!  OR  '  '  (SPACE).  THIS  VARIABLE  IS  USED 

I  IN  THE  SAME  MANNER  AS  VARIABLE  DE 

I  EXCEPT  THAT  DP  IS  USED  FOR  THE  PREDICTED 

I  VALUES. 

IBREG  -  ARRAY  CONTAINING  NAMES  OF  BODY  REGIONS 

I  ARRANGED  TO  CORRESPOND  TO  BR 

! LABEL  «  ARRAY  CONTAINING  LABEL  TEXT  FOR  THE  PLOTS 

IP  -  ARRAY  CONTAINING  THE  DATA  TO  BE  PLOTTED 


NOTE:  VARIABLES  E.  F,  G.  U,  K  AND  L  ARE  TEMPORARY 
VARIABLES  USED  FOR  DUMMY  ARGUMENTS. 

DO  LOOP  INDICES  AND  COUNTERS. 


NOTE:  THE  FOLLOWING  VARIABLE  ARE  DEFINED  IN 

A  MANNER  NECESSARY  TO  SATISFY  THE  DEC 
PLXY-I 1M  SUBROUTINE'S  SPECIFICATIONS 
IX  -  X-AXIS  INCREMENT  »>  «  UNITS  PER  PLOT  UNIT 

IY  -  Y-AXIS  INCREMENT  ->  «  UNITS  PER  PLOT  UNIT 

LX  »  X-AXIS  LENGTH  IN  PLOT  UNITS 

LY  -  Y-AXIS  LENGTH  IN  PLOT  UNITS 

SX  -  X-AXIS  STARTING  VALUE 

SY  »  Y-AXZS  STARTING  VALUE 

XP  a  ARRAY  USED  TO  PASS  X-AXIS  VALUES  TO 
PLXY-11M  SUBROUTINE  LINE 
YP  a  ARRAY  USED  TO  PASS  Y-AXIS  VALUES  TO 
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PLXY-11M  SUBROUTINE  LINE 


REAL  LX, SX,  IX,  LY, SY,  IY,  LYS,  XP ( 125 > . YP ( 125 ) 

REAL *8  LABEL (3),  BREG( 10) 

INTEGER  PSYM(2),BR 
BYTE  DE, DP.REU  RT 

COMMON  /PLOT/h-  ,  .25,  9) ,  LX,  SX,  IX,  LY,  SY,  I Y.  LYS.  LABEL,  NREC 
1,  BREG,  XP,  YP,  PD<  125,  3),  LCL,  CH,  REU,  PRT(13) 

SL«3. 0 

IF  (CH.  GT.  0.  0)  SL-CH 

CALL  SYMBOL  (LX-SL, LYS-O. 20, 0.  1169,  BREG(BR), 0.  0, +8) 

IF  ( IR.  EQ.  1 >  GO  TO  10 

CALL  SYMBOL  (999.  ,  999.  ,  0.  1 169,  PRT,  0.  0, +LCL) 

10  CALL  PLOT  (0.0,  0.0,  +3) 

LYS-LYS-O.  20 

DO  13  J*l,  2 
L*0 

DO  12  K-l.NREC 

IF  ( J.  GT.  1 )  GO  TO  115 

DE='  ' 

C  CHECKING  EXP 'T  VALUE  TO  BE  IN  RANGE  OF  PLOT 

IF  (P(K,  IR+1 ).  LE.  0.  OR.  P(K,  IR+1).  LT.  SY)  DE= '  * ' 

DP= '  ' 

C  CHECKING  PRED  VALUES  TO  BE  IN  RANGE  OF  PLOT 

IF  (P(K,  IR+2).  LE.  0.  OR.  P(K,  IR+2).  LT.  SY)  DP«'*' 

WRITE  (6.11)  P  (K,  1 ) .  P (K,  IR+1  > ,  DE,  P  (K,  IR+2 ) ,  DP 

11  FORMAT  (10X.F8.  2,  10X,  F10.  2.  1A1.9X.F10,  2,  1A1) 

115  IF  (P(K,  J+IR).  LE.  0.  0.  OR.  P(K.  J+IR).  LT.  SY)  GO  TO  12 

L-L+l 

XP(L)-P(K,  1) 

YP(L)»P(K.  J+IR) 

12  CONTINUE 
XP(L+1 )-SX 
XP(L+2)-IX 
YP(L+1 )«SY 
YP(L+2)«IY 

CALL  PLOT  (0.0,  0.0, +3) 

CALL  LINE  (XP, YP, L, l, +1, PSYM( J) ) 

CALL  SYMBOL  (LX-SL, LYS-O.  20, 0.  1 169, LABEL(J ),  0.  0, +8) 
CALL  WHERE  (E, F, G) 

CALL  SYMBOL  (E,  F+(0.  1 169/2.  0 ),  0.  1 169,  PSYM(J) ,  0.  0, -1 ) 
CALL  WHERE  (E, LYS, 0) 

LYS-LYS-(0.  1169/2.  0) 

13  CONTINUE 
RETURN 
END 
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SUBROUTINE  PLOTN( IRi  PSYM) 

C - 

! PLOTN  IS  A  SUBROUTINE  FOR  PLOTTING  NORMALIZED 
! TEMPERATURES  AND  BIOT  NUMBERS 
! BOTH  PREDICTED  AND  EXPERIMENTAL  VERSUS  TIME. 


PLOTN 


VARIABLES  REQUIRED  AND  LOCALLY  DEFINED 

IR  =  OFFSET  INTO  ARRAY  P  AT  WHICH  TO  PICK 

UP  BOTH  THE  PREDICTED  AND  EXPERIMENTAL  DATA. 

P (ROW, IR+1 )  »  EXPERIMENTAL 
P (ROW#  IR+2)  -  PREDICTED 

PSYM  ®  ARRAY  <  PSYM<2>  >  CONTAINING  THE  INTEGER 

NUMBERS  INDICATING  THE  SYMBOLS  TO  BE  USED  FOR 
THE  EXPERIMENTAL  AND  PREDICTED  CURVES 
RESPECTIVELY.  (SEE  DIGITAL  EQUIPMENT  CORP. 
MANUAL  PLXY-UM,  USER'S  GUIDE  FOR  DETAILS) 

BR  »  BODY  REGION  WHICH  THE  EXPERIMENTAL  AND 
PREDICTED  VALUE  CORRESPOND  TO. 

RMD  =  DEPTH  IN  MSW  TO  THE  MIDDLE  OF  THE  REGION. 

LYS  *  Y-AXIS  LEVEL  FOR  LABLES.  INITIALLY  SET 

AT  LY 

NR EC  =  NUMBER  OF  TIME  RECORDS  TO  PLOT 

(IE:  1  TO  NREC ) 

DE  »  BYTE  VARIABLE  CONTAINING  EITHER 

OR  '  '  (SPACE).  IT  IS  USED  TO  FLAG 
THE  EXPERIMENTAL  DATA  POINTS  NOT 
PLOTED  BECAUSE  THEY  ARE  EITHER  <■  0  OR 
<  SY.  SY  IS  THE  STARTING  VALUE 
FOR  THE  Y-AXIS. 

DP  ■  BYTE  VARIABLE  CQNATAINING  EITHER 

OR  '  '  (SPACE).  THIS  VARIABLE  IS  USED 
IN  THE  SAME  MANNER  AS  VARIABLE  DE 
EXCEPT  THAT  DP  IS  USED  FOR  THE  PREDICTED 
VALUES. 

BREG  -  ARRAY  CONTAINING  NAMES  OF  BODY  REGIONS 
ARRANGED  TO  CORRESPOND  TO  BR 

LABEL  »  ARRAY  CONTAINING  LABEL  TEXT  FOR  THE  PLOTS 

P  .  ARRAY  CONTAINING  THE  DATA  TO  BE  PLOTTED 


NOTE:  VARIABLES  E,  F,  G,  J.  K  AND  L  ARE  TEMPORARY 
VARIABLES  USED  FOR  DUMMY  ARGUMENTS, 

DO  LOOP  INDICES  AND  COUNTERS. 


NOTE:  THE  FOLLOWING  VARIABLE  ARE  DEFINED  IN 

A  MANNER  NECESSARY  TO  SATISFY  THE  DEC 
PLXY-11M  SUBROUTINE'S  SPECIFICATIONS 
IX  -  X-AXIS  INCREMENT  ->  #  UNITS  PER  PLOT  UNIT 

IY  =  Y-AXIS  INCREMENT  «>  #  UNITS  PER  PLOT  UNIT 

LX  -  X-AXIS  LENGTH  IN  PLOT  UNITS 

LY  -  Y-AXIS  LENGTH  IN  PLOT  UNITS 

SX  -  X-AXIS  STARTING  VALUE 

SY  ■  Y-AXIS  STARTING  VALUE 

XP  -  ARRAY  USED  TO  PASS  X-AXIS  VALUES  TO 


342 


!  PLXY-11M  SUBROUTINE  LINE 

i  YP  »  ARRAY  USED  TO  PASS  Y-AXIS  VALUES  TO 
!  PLXY-11M  SUBROUTINE  LINE 


REAL  LX/  SX,  IX,  LY,  SY,  IY,  LYS,  XP  ( 125 ) ,  YP  ( 1 25 ) 

REALMS  LABEL<3> , BREG< 10) 

INTEGER  PSYM<2), BR, ATT, COR 

BYTE  DE, DP, RDU, REU, PRT 

COMMON  /BODY/B  <  9,  3  > ,  COR  <  9,  2  > , WGT < 1 2 ) 

1,  /PR08/BR,  ATT,  RD,  RDM,  TA,  NN,  TDMS,  DZ,  DZV,  FLAG3,  RDS 

2,  RDU 

3,  /PLOT /P  < 125,  9 ) , LX, SX,  IX,LY,SY,  IY,  LYS,  LABEL,  NREC 

4,  BREG,  XP,  YP,  PD <  125,  3),  LCL,  CH,  REU,  PRT(13> 

SL=3. 0 

IF  (CH.  GT.  0.  0>  SL»CH 

CALL  SYMBOL  (LX-SL,  LYS-O.  20,  0.  1 169,  BREG(BR  >,  O.  0. +B) 
IF  (IR.  EG.  1)  GO  TO  10 

CALL  SYMBOL  <999.  ,  999,  ,  0.  1169,  PRT,  0.  0,  +LCL) 

10  CALL  PLOT  (0.0,  0.0,  +3) 

LYS*LYS— O.  20 

IF  (ATT. EG.  2)  RMD=RDM 

IF  (ATT. EG.  1)  RMD*RDM+RDS+(B(BR. 3)/2.  0) 

IF  (ATT.  NE.  0)  GO  TO  5 
RMD-RDM+RDS 

IF  (BR.  EG.  4)  RMD»RMD+(B(BR, 2)/2.  0) 

IF  (BR.  NE.  4)  RMD*RMD+(B(BR. 3>/2.  0) 

5  DO  13  J-1,2 

L-0 

DO  12  K=1 . NREC 

C  CHECKING  EXP 'T  VALUE  TO  BE  IN  RANGE  OF  PLOT 

IF  (P(K,  1  +  IR).  LE.  0.  0.  OR.  P(K.  1  +  IR).  LT.  SY)  GO  TO  12 
L-L+l 

XP(L)*P(K,  1 ) 

PD(L, 1)=XP(L) 

IF  ( IR.  NE.  1)  GO  TO  11 

YP(L)»(P(K,  U+IR)-P(K, 9) >/(P(K, 8>-P(K,  9)  > 

PD(L, J+l )»YP(L) 

GO  TO  12 

11  IF  ( IR. NE.  5)  GO  TO  12 
TM-(P(K, U+1)+P(K,  9) )/2.  0 

YP(L)-(P(K, J+IR ) * ( B ( BR,  2) >/2.  0)/TC(TM,  RMD ) 

PD(L, J+l )-YP(L) 

12  CONTINUE 
XP(L+1)-SX 
XP(L+2)-IX 
YP(L+1>-SY 
YP(L+2)«IY 

CALL  PLOT  (0.  0,  0.  0,  +3) 

CALL  LINE  (XP, YP, L,  1, +1, PSYM( J) > 

CALL  SYMBOL  (LX-SL,  LYS-O.  20,  0.  1 169,  LABEL(J) ,  0.  0,  +8) 
CALL  WHERE  (E,  F,G> 

CALL  SYMBOL  (E,  F+(0.  1 169/2.  0) ,  0.  1 169,  PSYM(J) ,  0.  0, -1 ) 
CALL  WHERE  (E, LYS, G) 


LYS=LYS-<0.  1169/2.  0) 

CONTINUE 

WRITE  (6.14)  (PDCK.  1).  PD(K,  2),  PDCK.  3),  K«l.  L) 
FORMAT  ( 10X,  F8.  2,  10X,  F10.  2.  10X,  F10.  2) 

RETURN 

END 


Vi 

APPENDIX  G 
SAMPLE  CALCULATION  ' 

i 


To  illustrate  the  computations  performed  by  the  interactive  model 
program,  an  example  will  be  calculated  by  hand  and  compared  to  the 
corresponding  program  output  (Table  G.l).  Table  G.2  is  a  question  flow  of  the 
form  introduced  in  the  documentation  section  (Appendix  D)  which  shows  the 
responses  to  the  program's  queries  necessary  to  generate  the  example  program 
output  (Table  G.l). 

The  example  output  is  generated  in  the  research  mode,  yet  Table  G.l  is 
the  output  of  a  simple  production  mode  run  (See  Table  D.2.)  with  the  addition 
of  the  program  generated  debug  information.  This  mimicking  of  the  production 
mode  from  the  research  mode  is  done  to  activate  the  debug  prints  which  contain 
the  results  of  the  intermediate  computations  necessary  for  comparison. 

The  answers  to  questions  4  thru  8,  10,  and  14  thru  17  of  Table  G.2 
display  the  information  necessary  to  define  the  example  problem.  These 
responses  indicate  that  the  modeled  diver  is  lying  prone  (question  17)  in  a 
wet  environment  at  a  depth  of  10.0  FSW  (question  4)  and  at  a  temperature  of 
5.0  °C  (question  15).  The  ensemble  being  worn  is  the  U.S.  Navy’s  prototype 
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Table  G.l 

A  Production  Mode  Output  Enhanced  With  Debug  Information 


80DY  REGION:  3 
POSTURE:  0=SIT,1=STAND,2*PR0NE  2 
DESIGN  MEAN  SKIN  TEMPERATURE:  30.00  C 
REFERENCE  DEPTH:  10.00  FSW 
AMBIENT  TEMPERATURE:  5.00  C 


PREDICTED  TEMPERATURE  FOR  REGION  3: 

iDZ.OZV  0.3530000  0.0000000 

SEP.SEPV  0.0000000  0.0000000 

RDM,RED,DPCT  3.048000  0.0000000  0.0000000 

Tl.MT.EDS  30.30807  17.65403  3.048000 

TC(21.1,0) ,TC(MT,EDS)  2.6105195E-02  2. 5872320E-02 
CR  1.009001  SRUGA.SRUGHA  2.290432  2.290432 

RUGHA  3.733404  CLO  RUGHAJ  0.5778190  M2*C/WATT 
T3,DT,TN1  5.719394  -1.0215981E-04  5.719394 

F(TN1) ,Q1A,Q13  3.8146973E-06  44.16370  44.16370 

RUG,ROG,ROBL  0.5485279  8.2342243E-03  1.6289219E-02 

R1 ,R2,R3  0.1500000  0.1663000  0.1678875 

T1.T3  30.30807  5.719394 

FLAG1,F(T3) ,CHTC(T3,R3)  1  3.8146973E-06  54.84949 

US, UN  3.961251  1.000000 

QR,Q(BR)  100.2516  33.35371 

CORRECTED  PREDICTED  OHTC  FOR  REGION  3: 

PREDICTED  UNIT  HEAT  FLUX  FOR  REGION  3: 

ALLOWABLE  UNIT  HEAT  FLUX  FOR  REGION  3: 

REQUIRED  SUPPLEMENTARY  HEAT  FLUX: 

PREDICTED  RATE  OF  HEAT  LOSS  FOR  REGION  3: 

ALLOWABLE  RATE  OF  HEAT  LOSS  FOR  REGION  3: 

REQUIRED  SUPPLEMENTARY  HEATING: 


30.31  C 


3.96  W/M**2*C 
100.25  W/M**2 
49.70  W/M**2 
50.55  W/M**2 
33.35  WATTS 
16.54  WATTS 
16.82  WATTS 


346 


I 

I 
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Table  G.2 

Question  Flow  for  Generation  of  Table  G.l 
Question  #  Response 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


Y 

Y 

Y 

F10.0 

X 

X 

X 

X 

F 

1 

N 

NA 

NA 

30.0 

5.0 

3 

2 

NA 

NA 

NA 

NA 

NA 

NA 


diver  thermal  protection  garment  (questions  5  and  6).  The  calculations  are  to 
be  performed  only  for  the  abdomen  (question  16)  and  are  assuming  one  node  per 

i 

|  region  (question  10).  The  diver's  mean  skin  temperature  (question  14)  is  to 

j 

j  be  maintained  at  a  steady  value  of  30.0  °C,  and  the  values  of  allowable  heat 
j  flux  (question  7)  and  biasing  factor  (question  8)  to  be  used  are  those 
j  assigned  by  the  program. 

j  The  following  array  listings  contain  the  information  necessary  to  perform 
|  the  example  calculations.  The  arrays  are  displayed  in  the  order  of  their  use 
j  In  the  example  calculations.  Each  array,  which  contains  either  regional  or 
i  segmental  data,  is  displayed  with  the  region  or  segment  ID  numbers  and  names. 

i 

Regional  data  corresponds  to  the  nine  regions  of  the  model  man  (Fig.  1  of 
Chapter  I)  and  segment  data  corresponds  to  the  twelve  Hody  segments  (Fig.  2  of 
j  Chapter  I). 
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Array  C0R(9,2) 


Region 

Region 

Corresponding 

ID  # 

Name 

Segments 

SI 

S2 

1 

HEAD 

1 

-1 

2 

TORSO 

■> 

tL 

4 

3 

ABDOMEN 

3 

5 

4 

THIGH 

8 

10 

5 

CALF 

9 

11 

6 

FOOT 

12 

-1 

7 

UPPER  ARM 

6 

-1 

'8 

LOWER  ARM 

6 

-1 

9 

HAND 

7 

-1 

j  Array  COR  indicates  the  correspondence  between  model  regions  and  Hody 
i  segments.  Note:  A  segment  of  -1  indicates  that  there  is  a  one  to  one 
I  correspondence  between  a  model  region  and  a  Hody  segment. 

j 

i 

! 

Array  KA(12) 


Segment 

Segment 

ID  # 

Name 

1 

HEAD 

2 

CHEST 

3 

ABDOMEN 

4 

UPPER  BACK 

5 

LOWER  BACK 

6 

ARM 

7 

WRIST 

8 

FRONT  THIGH 

9 

FRONT  CALF 

10 

REAR  THIGH 

11 

REAR  CALF 

12 

FOOT 

Predictive  Skin  Temperature 
Correlation  Coefficient 


0.36 

0.27 

0.30 

0.52 

-0.08 

0.22 

-0.64 

-0.04 

-0.16 

-0.06 

-0.55 

-0.86 


j  Array  KA  contains  the  twelve  segmental  coefficients  needed  to  use  the 
predictive  skin  temperature  correlation.  The  development  of  this  correlation 
is  described  in  Chapter  IV. 


Constant  KR 

Along  with  the  twelve  segment  coefficients,  the  predictive  skin  temperature 
correlation  requires  a  fixed  constant  KR. 


KR  *  2.946 

This  constant  is  also  described  in  Chapter  IV 


Array  WGT(12) 


Segment 

Segment 

Hody  Skin  Surface 

ID  # 

Name 

Area  Fraction 

1 

HEAD 

0.070 

2 

CHEST 

0.085 

3 

ABDOMEN 

0.085 

4 

UPPER 

BACK 

0.090 

5 

LOWER 

BACK 

0.090 

6 

ARM 

0.140 

7 

WRIST 

0.050 

8 

FRONT  THIGH 

0.095 

9 

FRONT  CALF 

0.065 

10 

REAR  THIGH 

0.095 

11 

REAR  CALF 

0.065 

12 

FOOT 

0.070 

Array  WGT  contains  the  twelve  Hody  surface  area  fractions  corresponding 

12  segments  (Fig.  2  of  Chapter  I). 

Array 

C(6,7) 

Temperature  (°F) 

Pressure 

30.00 

50.00 

70.00 

90.00  110.00 

130.00 

(PSIA) 

14.70 

3.93 

4.06 

4.19 

4.32  4.45 

4.58 

30.00 

3.93 

4.07 

4.20 

4.33  4.46 

4.59 

50.00 

3.95 

4.08 

4.21 

4.34  4.47 

4.59 

100.00 

3.98 

4.11 

4.24 

4.37  4.49 

4.62 

200.00 

4.03 

4.16 

4.29 

4.42  4.54 

4.66 

Array  C  contains  values  of  the  thermal  conductivity  of  air  multiplied  by  10+® 
as  a  function  of  temperature  (°F)  and  absolute  pressure  (PSIA). 
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Garment  Ensemble  Constants 


WUGO: 

1.63  (CM) 

SRO: 

2.27  (CLO/CM) 

DR: 

0.1175 

WOG: 

0.15875  (CM) 

COG: 

0.17307  (W/M°C) 

WUGO  =  Unit  thickness  of  undergarment  at  sea  level 

SRO  =  Specific  thermal  resistance  of  undergarment  at  sea  level 

DR  =  Ratio  of  the  decimal  percent  change  in  specific  thermal  resistance 
(SRO)  to  the  decimal  percent  change  in  thickness  of  the 
undergarment.  This  is  the  slope  of  a  line  which  describes  the 
change  in  the  undergarment  specific  thermal  resistance  with  a 
change  in  the  undergarment  thickness  due  to  a  hydrostatic  pressure 
differential  between  the  inside  and  the  outside  of  the  ensemble. 
(See  Fig.  68  of  Chapter  V.) 

WOG  =  Width  of  the  outer  garment.  This  value  is  constant  over  all 
temperatures  and  pressures  due  to  the  impermeability  and 
incompressibility  of  the  outer  garment  material. 

COG  =  Thermal  conductivity  of  outer  garment.  This  value  is 

constant  over  all  gases  due  to  the  impermeability  of  outer  garment 
material. 

i 

I 


Array  TWUG0(9) 


Region 

Region 

Number  of  Layers  of  Undergarment 

ID  # 

Name 

WUGO  Thick 

1 

HEAD 

1.0 

2 

TORSO 

1.0 

3 

ABDOMEN 

1.0 

4 

THIGH 

1.0 

5 

CALF 

1.0 

6 

FOOT 

2.0 

7 

UPPER  ARM 

1.0 

8 

LOWER  ARM 

1.0 

9 

HAND 

1.0 

Array  TWUGO  defines  the  number  of  layers  of  unit  thickness  undergarment 
material  covering  each  region. 


Region 

ID  # 

Region 

Name 

Array  B(9,3) 

Shape 

Indicator 

1 

I 

l 

Major  Characteristic  j 

Diameter  Length 

1 

HEAD 

-1.000 

0.206 

0.206 

2 

TORSO 

0.000 

0.300 

0.353 

3 

ABDOMEN 

0.000 

0.300 

0.353 

4 

THIGH 

0.000 

0.150 

0.383 

5 

CALF 

0.000 

0.120 

0.328  1 

6 

FOOT 

0.000 

0.150 

0.104 

7 

UPPER  ARM 

0.000 

0.096 

0.223 

8 

LOWER  ARM 

0.000 

0.070 

0.267 

9 

HAND 

-1.000 

0.123 

0.123 

Array  B  contains  the  body  dimensions  of  the  nine 

:  region  model 

man  (Fig.  1  of 

Chapter  I). 

Shape  indicator:  -1. 

0  =  sphere 

! 

0. 

0  =  cylinder 

Major 

diameter:  For 

sphere  and  cylinder  - 

the  diameter 

Characteristic  Length:  For  sphere  -  same  as  major  diameter 


For 

cylinder  - 

the  length  of  cylinder 

Array  BF(9) 

Region 

Region 

Empirically  Derived 

ID  # 

Name 

Biasing  Factor 

1 

HEAD 

2.63 

2 

TORSO 

2.63 

3 

ABDOMEN 

2.27 

4 

THIGH 

3.50 

5 

CALF 

3.21 

6 

FOOT 

12.70 

7 

UPPER  ARM 

2.29 

8 

LOWER  ARM 

2.19 

9 

HAND 

3.49 

Array  BF  defines  the  empirically  derived  biasing  factors  used  to  correct  the 
predicted  overall  heat  transfer  coefficients  (OHTC).  The  derivation  of  these 
biasing  factors  may  be  found  in  Chapter  VII. 


Array  SAM(9) 
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Region 

Region 

Regional  Surface 

ID  # 

Name 

Area  (M2) 

1 

HEAD 

0.1333 

2 

TORSO 

0.3327 

3 

ABDOMEN 

0.3327 

4 

THIGH 

0.3610 

5 

CALF 

0.2474 

6 

FOOT 

0.1334 

7 

UPPER  ARM 

0.1490 

8 

LOWER  ARM 

0.1174 

9 

HAND 

0.0950 

Array  SAM  contains  the  nine  regional  surface 

areas  computed  from 

dimensions  described 

in  Array  B. 

Array  QALL(9) 

Region 

Region 

Allowable  Heat 

ID  # 

Name 

Flux  (W/M2) 

1 

HEAO 

23.30 

2 

TORSO 

60.00 

3 

ABDOMEN 

49.70 

4 

THIGH 

42.40 

5 

CALF 

85.00 

6 

FOOT 

97.00 

7 

UPPER  ARM 

98.90 

8 

LOWER  ARM 

125.25 

9 

HAND 

265.86 

Array  QALL  contains  the  allowable  regional  heat  fluxes  necessary  to  remove  the 
waste  heat  produced  by  a  resting  seated  subject.  These  were  extracted  from 
data  by  Burriss  et  al .  [33,34]. 
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The  computations  which  appear  on  the  following  pages  were  performed  to 
check  the  computational  accuracy  of  the  interactive  model  program's  algorithm, 
as  well  as  to  provide  a  sample  to  illustrate  the  calculation  of  the  predicted 
heat  loss  values.  To  facilitate  this  checking  of  the  program's  algorithm,  the 
hand  calculations  maintain  more  significant  figures  than  would  be  expected 
from  the  accuracy  of  the  experimental  data  from  which  the  diver  heat  loss 
model  was  developed. 
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Begin  Sample  Computations 

In  the  Main  module: 

Calculate  regional  skin  temperature  (Tl). 

Given:  Design  mean  skin  temperature  (TDMS)  =  30.0°C 
Body  region  (BR)  =  3  (Abdomen) 

i  Tl  *  TR(TDMS.BR) 

l 

!  From  Function  TR: 

i 

j  From  Array  COR  for  BR  =  3: 

!  CQR(3,1)  =  3  (Hody's  site  3)  =  SI 

!  COR (3,2)  =  5  (Hody's  site  5)  =  S2 

TRfTnMS  =  PRED(Sl.TDMS)  •  WGT(Sl)  +  PRED(S2,TDMS)  •  WGT(S2) 

|  *  WGT(Sl)  +  WGT(S2) 

j  From  Function  PRED: 

|  PRED(S.TDMS)  =  TDMS  +  KA(S)  .  KR 

i 

i  PRED(S1,TDMS)  =  30.0  +  KA(3)  •  KR 
KR  =  2.946 

From  Array  KA  for  site  3: 

KA(3)  =  0.30 

PRED(Sl.TDMS)  =  30.0  +  (0.30) (2.946)  =  30.88  °C 

PRED(S2,T0MS)  =  30.0  +  KA(5)  •  KR 
i  KR  *  2.946 

j  From  Array  KA  for  site  5: 

KA(5)  =  -0.08 

j  PRED(S2,TDMS)  =  30.0  -  (0.08) (2.946)  =  29.76  °C 

From  Array  WGT  for  sites  3  and  5: 

WGT(3)  =  0.085 
WGT(5)  =  0.090 

I 

I  Xp f- tdm*:  11  =  (30*88  •  °*085)  +  (29'76  •  °*09°) 

|  ’  (0.085  +  0.090) 

I  Tl  =  30.308  °C 

t 

j 

I  In  this  example,  calculations  are  shown  for  a  single  node  per  region;  if 

I 

|  multiple  nodes  were  desired,  the  following  would  be  executed  once  for  each 

i 

i  node. 
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Begin  multiple  node  loop: 

Calculate  the  overall  heat  transfer  coefficient  (OHTC). 
Using:  Subroutine  OHTC 


Given: 


Design  mean  skin  temperature  (TDMS)  =  30.0  °C 
Body  region  (BR)  =  3  (Abdomen) 

Diver's  posture  (ATT)  =  2  (Prone) 

Depth  below  sea  level  of  shoulders  (RD)  =  10.00  FSW 
Pmbient  temperature  (TA)  =  5.0  °C 
Regional  skin  temperature  (Tl)  =  30.308  °C 


OHTC  = 


RUG  +  ROG  +  ROBL 

RUG  =  Unit  thermal  resistance  of  the  undergarment  as  a  function  of  the 
ambient  temperature  and  depth,  and  the  hydrostatic  pressure 
differential  due  to  the  region's  depth  below  the  shoulders. 

ROG  =  Unit  thermal  resistance  of  the  outer  garment.  The  outer  garment  is 
assumed  to  be  unaffected  by  the  suit  entrapped  gas  (impermeable)  and 
the  hydrostatic  pressure  difference  (incompressible). 

ROBL  =  Unit  thermal  resistance  of  the  outer  fluid  boundary  layer.  This  is 
predicted  by  using  empirically  derived  equations  fitted  to 
experimental  data. 


Determine  RUG: 


RUG  * 


_  RUGHAJ  •  R1  •  lnf  (R2/R1)  •  100.0 


WUG0  •  TWUGO(BR)  •  (1.0  -  DPCT) 


Determine  unit  thermal  resistance  of  a  flat  undergarment  sample  at  depth 
(RUGHAJ).  j 

Determine  the  thermal  conductivity  ratio  (CR). 

CR  is  the  ratio  of  the  thermal  conductivity  of  air  at  sea  level  and 
standard  temperature,  and  the  thermal  conductivity  of  the  suit  entrapped  j 
gas  at  ambient  depth  and  temperature. 

CR  =  k(air,  sea  level,  21.1  °C)  ! 

k(entrapped  gas,  ambient  pressure,  ambient  temperature) 


tin  implies  logarithm  to  the  base  e. 
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When  the  suit  entrapped  gas  is  air, 
rR  =  TC (21.1,0  MSW) 

TC(MT,EDS) 


EDS  =  Element  (node)  depth  below  sea  level  =  RDM  +  RED 

RDM  =  Reference  depth  (RD)  converted  to  MSW 
For  RD  given  as  10.0  FSW, 

MSW 

RDM  =  10.00  FSW  •  0.3048  _ 

FSW 

RDM  =  3.048  MSW 

RED  =  Regional  element  (node)  depth  below  the  shoulder  reference. 
This  depth  is  computed  to  the  mid-point  of  the  nodal  element 
and  indicates  the  hydrostatic  pressure  differential. 

For  a  diver  posture  (ATT)  =  2  (Prone), 

RED  =  0.0,  since  all  regions  are  at  the  same  depth  below  sea  level. 

EDS  =  3.048  +  0.0 
EDS  =  3.048  MSW 


MT  =  Mean  temperature  of  the  suit  entrapped  gas 
MT  _  (T1  +  TA)/2.0 
MT  =  (30.308  +  5.0) /2. 0 
MT  =  17.65  °C 

CR  =  TC(21»1»°) 

TC(17. 65, 3.048) 

From  Function  TC(TDC.Z): 

Convert  TDC  (°C)  to  T  (°F), 

T  ( °F)  =  ((TDC  +  273.15)  •  1.8)  -  459.67 

Convert  Z  (MSW)  to  P  (PSIA), 

P  (PSIA)  =  (Z  •  100.0  •  64. 15)/ (2.54  •  12. 03)  +  14.7 

Using  a  method  of  two-dimensional  linear  interpolation  (Adapted  from 
Carnahan,  Luther,  and  Wilkes,  Applied  Numerical  Methods,  p.  63, 

Problem  1.28  [49],  Function  TC  estimates  the  value  of  the  thermal 
conductivity  of  air  from  Array  C.  This  method  is  outlined  on  the  next 
page. 
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C(P.T)  =  C  ( P » T-j )  +  (C(P,Ti+1)  -  C(P,Ti))  •  0 
C  ( P » T-j )  =  C(Pj,Ti)  +  (C(Pj  +  1,Ti)  -  C  ( P  j  *  T-j ) )  •  « 
C(P,Ti+l)  -  C(Pj,Ti+1)  +  (C(Pj+1,Ti+1)  -  C(Pj,Ti+1)) 


where:  @  ■  ^i ) 

a  =  (P  -  Pj)/(Pj  +  l  -  Pj) 


a 


Determine  TC(21.1,0). 

TDC  «  21.1  °C  ,  Z  =  0  MSW 
T  =  69.98  °F  ,  P  =  14.7  PSIA 

C(P,T)  =  4.1899  x  lO"6  BTU/SEC  FT°F 

Convert  C(P,T)  in  BTU/SEC  FT°F  to  W/M°C 

C(P,T)  =  4.1899  x  10"6  *  6230.551  W/H°C 

BTU/SEC* FT°F 

TC( 21. 1 , 0)  =  2.6105  x  10"2  W/M°C 


Determine  TC(17.65,3.048). 

TDC  =  17.65  °C  ,  Z  =  3.048  MSW 
T  =  63.77  °F  ,  P  =  19.155  PSIA 

C(P,T)  =  4.1524  x  10"6  BTU/SEC*FT°F 

Convert  C(P,T)  in  BTU/SEC  FT°F  to  W/M°C 

C(P.T)  =  4.1524  x  lO"6  *  6230.551  W/M°C 

BTU/SEC* FT°F 

TC( 17.65,3.048)  =  2.5872  x  10"2  W/M°C 


CR  =  TC(21. 1 ,0) 

TC(17.65,3.048) 


CR 


2.6105  x  10'2 
2.587?  x  10"2 


CR  =  1.009006 


Determine  specific  thermal  resistance  of  the  undergarment  in  the  ambient 
environment  (SRUGA). 

The  specific  thermal  resistance  of  the  undergarment  material  at  sea 
level  in  air  (SRO)  is  adjusted  for  the  effects  of  the  suit  entrapped  gas 
at  ambient  conditions  through  multiplication  by  the  conductivity  ratio 
(CR). 

SRUGA  =  SRO  •  CR 

SRUGA  =  2.27  CLO/CM  *  1.00901 

SRUGA  =  2.29044  CLO/CM 


Determine  the  decimal  percent  change  in  undergarment  thickness  (DPCT) 
due  to  hydrostatic  pressure  (RED  in  CM). 

For  RED  £  0.1711  CM: 

DPCT  =  RED  •  100.0  •  2.358  x  10”2 

For  RED  >  0.1711  CMS: 

DPCT  =  0.343  +  (RED  •  100.0  *3.784  x  10"3) 

-  ((RED  *  100.0)2  •  1.345  x  10"5) 

As  previously  stated  for  a  prone  diver,  RED  =  0.0  since  all  regions  are 
at  the  same  depth  below  sea  level. 

DPCT  =  0.0  •  100.0  •  2.358  x  10’2 
DPCT  =  0.0 


Determine  the  specific  thermal  resistance  of  the  undergarment  at  ambient 
conditions  corrected  for  the  effects  of  hydrostatic  pressure  (SRUGHA). 

SRUGHA  is  formed  by  multiplying  the  specific  thermal  resistance  of  the 
undergarment  (SRUGA)  by  one  minus  the  decimal  percent  change  in  specific 
thermal  resistance  due  to  a  change  in  undergarment  thickness 
(DPCT  *  DR). 

SRUGHA  =  SRUGA  *  (1.0  -  DPCT  *  DR) 

SRUGHA  =  2.29044  •  (1.0  -  0.0  •  0.1175) 

SRUGHA  =  2.29044  CLO/CM 
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Determine  the  unit  thermal  resistance  (RUGHA) . 

The  specific  thermal  resistance  ( SRUGHA)  is  converted  to  a  unit  thermal 
resistance  (RUGHA)  by  multiplying  by  the  actual  thickness  of  the 
undergarment. 

RUGHA  =  SRUGHA  •  (WUGO  •  TWUGO(BR))(l.O  -  DPCT) 

From  Array  TWUGO: 

TWUG0{ 3)  =  1.0 

WUGO  =  1.63  CM 

DPCT  =0.0 

RUGHA  =  2.29044  •  (1.63  •  1.0) (1.0  -  0.0) 

RUGHA  =  3.7334  CLO 


Convert  undergarment  resistance  in  CLO  (RUGHA)  to  MZoC/W  (RUGHAJ). 

MZoc/w 

RUGHAJ  =  RUGHA  •  0.15477  _ L_ 

,  CLO 

RUGHAJ  =  0.57782  MZoC/W 


Determine  radius  from  center  line  of  region  to  skin  surface  (Rl). 

R1  =  B(BR,2)/2.0  =  B(3,2)/2.0 

From  Array  B: 

8(3,2)  =  0.300  M 

Rl  =  0.300/2.0 
Rl  =  0.15  M 

Determine  radius  from  center  line  to  outer  surface  of  undergarment  (R2). 

R2  =  Rl  +  (WUGO  •  TWUGO(BR)  •  (1.0  -  DPCT)/100.0) 

From  Array  TWUGO: 

TWUG0( 3)  =  1.0 

R?  *  0.15  +  (1.63  •  1.0  •  (1.0  -  0.0)/100.0) 

R2  =  0.1663  M 

radius  from  center  line  to  outer  surface  of  outer  garment  (R3). 

•  •  -rr./no.O 

•*  •  '.  1 00.0) 


L 
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Determine  the  unit  thermal  resistance  of  the  undergarment  on  a  cylindrical 
surface  (RUG)  by  converting  the  unit  resistance  on  a  flat  surface  (RUGHAJ). 

R[JR  =  RUGHAJ  .  R1  .  In  (R2/R1)  •  100.0 

WUGO  •  TWUGO(BR)  •  (1.0  -  DPCT) 

R[]R  =  0.57782  •  0.15  •  In  (0.1663/0.15)  •  100.0 

1.63  •  1.0  •  (1.0  -  0.0) 

RUG  =  0.548529  M2oC/W 


Determine  ROG: 


ROG 

ROG 


R1  •  In  (R3/R2) 

COG 

0.15  •  In  (0.1678875/0.1663) 
0.17307 


ROG  =  8.23429  x  10"3  M2oC/W 


Determine  ROBL  for  water  boundary  layer: 


R0BL(T3)  =  _ _ _ 

R3  •  CHTC(T3,R3) 


Determine  the  temperature  of  outside  surface  of  the  outer  garment  (T3)  by 
application  of  the  Secant  Method  for  finding  the  roots  of  the  equation 
displayed  below  and  coded  as  Function  F(T). 

F(T3)  =  T1  -  TA _  .  T1  -  T3 

RUG  +  ROG  +  R0BL(T3)  RUG  +  ROG 

Repeated  solutions  of  the  above  with  the  Secant  algorithm  to  select  the  new 
estimates  of  T3  yielded  F(T3)  =  0  when  T3  =  5.7194  °C. 


Determine  the  convective  heat  transfer  coefficient  (CHTC(T3,R3) ). 

Given:  Diver  posture  (ATT)  =  2  (Prone) 

Body  region  (8R)  =  3  (Abdomen) 

Temperature  of  outer  surface  (T3)  =  5.7194  °C 

Ambient  temperature  (TA)  =  5.0  °C 

Radius  to  outer  edge  of  garment  (R3)  =  0.1678875  M 


Determine  the  Grashof  Prandtl  number  product  (GrPr). 
GrPr  =  a  •  CL3  •  (T3  -  TA) 


Determine  a  = 

uk 

log1-  a  =  9.80714  (log  Tf)0.12733 

This  equation  fits  data  taken  from  Holman  [40]  over  a  range  of 
temperatures  from  4.44  °C  to  21.11  °C  for  a  in  units  of  l/(M3oC). 


Determine  film  temperature  (Tf). 

Tf  *  (T3  +  TA)/2.0 
Tf  =  (5.7194  +  5.0)/2.0 
Tf  =  5.3597  °C 

log  a  =  9.80714  (log  Tf)°-12733 
log  a  =  9.80714  (log  5. 3597) °* 1 2733 
log  a  =  9.4205 


a  =  iol°g  <*  =  iq9*4205 

a  *  2.6333  x  10+9  1/(M3oC) 


Determine  characteristic  length  (CL). 

For  diver  posture  (ATT)  =  2,  body  region  (BR)  =  3  is  classified  as  a 
horizontal  cylinder.  For  a  horizontal  cylinder  the  characteristic 
length  (CL)  is  defined  to  be  the  overall  diameter  of  the  cylinder 
which  includes  the  garment  ensemble. 

CL  =  2.0  •  R3 

CL  =  2.0  •  0.1678875 

CL  =  0.3357750 


GrPr  =  a  •  CL3  •  (T3  -  TA) . . 

GrPr  =  2.6333  x  10+9, (0.335775)3  •  (5.7194  -  5.0) 
GrPr  =  7.17160  x  10+7 


flog  implies  logarithm  to  the  base  10 


Determine  Nusselt  number. 


Given:  Horizontal  cylinder  (BR  =  3  and  ATT  =  2) 

For  a  horizontal  cylinder, 

log  Nu  =  0.2486  (log  GrPr)  -  0.4483 

This  equation  fits  experimental  data  taken  during  a  series  of 
respiratory  heat  loss  studies  performed  by  the  Navy  Experimental  Diving 
Unit.  (See  Chapter  II.) 

log  Nu  =  0.2486  (log  7.1716  x  10+7)  -  0.4483 
log  Nu  =  1.5046 

Nu  =  10lo9  Nu  =  lo1*5046 
Nu  =  31.9595 


Determine  convective  heat  transfer  coefficient  (h). 

h  *  Nu  '  k 
CL 


Determine  thermal  conductivity  (k). 
k  =  1.7977  x  10"3  (Tf)  +  0.56662 

This  equation  fits  data  taken  from  Holman  [40]  over  a  range  of 
temperatures  from  0  °C  to  21.11  °C  for  k  in  units  of  W/M°C. 

k  =  1.7977  x  10"3  (5.3597)  +  0.56662 
k  *  0.57626  W/M°C 

h  =  31.9595  •  0.57626 
0.3357750 
h  =  54.8492 


CHTC(T3,R3)  =  h  =  54.8492 
Ri 

R0BL(T3)  =  _ _ _ 

R3  •  CHTC(T3,R3) 

R0BL(T3)  =  _ ILL! _ 

( 0.1678875) ( 54.8492) 

R0BL(T3)  =  1.629  x  10"2  M2oC/W 
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RUG  +  ROG  +  ROBL 

OHTC  = 

0.548529  +  8.23429  x  10"^  +  1.629  x  10-2 
OHTC  =  1.74504  W/M2oC 
Return  to  Main  program. 

Since  this  is  a  production  mode  run,  the  regional /nodal  OHTC's  are  corrected 
by  applying  empirically  derived  biasing  factors. 

Determine  corrected  value  of  overall  heat  transfer  coefficient  (U). 

U  =  OHTC  •  BF(BR) 

From  Array  BF  for  region  3: 

BF (3)  =  2.27 

U  =  OHTC  •  BF ( 3) 

U  =  1.74504  •  2.27 
U  =  3.96124  W/M2oC 


To  allow  for  multiple  nodes  per  region  add  the  most  recent  nodal  U  into  a 
regional  sum  (US)  and  increment  a  nodal  counter  (UN). 

US  =  US  +  U 
US  =  3.96124 

UN  =  UN  +  1.0 
UN  *  1.0 


Determine  a  nodal  heat  flux  (QR). 

QR  *  U  •  (T1  -  TA) 

QR  *  3.96124  •  (30.308  -  5.0) 

QR  *  100.2511  W/M2 


Determine  a  nodal  heat  loss  (Q). 

Q  -  QR  .  SAM(BR)/NN 

From  Array  SAM  for  region  3: 

SAM(3)  =  0.3327  M2 

In  this  example  NN  =  1  since  there  is  only  one  node  per  region.  In  a 
multi-node  case  NN  would  contain  the  number  of  nodes  per  region. 

Q  *  100.2511  •  0.3327/1.0 
Q  =  33.3535  W 
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Determine  the  total  regional  rate  of  heat  loss  Q(BR)  as  of  this  node. 

Q(BR)  =  Q(BR)  +  Q 
Q(BR)  =  0.0  +  33.3535 
Q(BR)  =  33.3535 

|  The  array  Q  is  used  to  store  the  regional  rate  of  heat  loss  to  allow  a 
i  complete  regional  rate  of  heat  loss  record  to  be  kept  if  all  nine  regions  are 
being  done  at  once.  (A  'O'  (zero)  response  to  question  16  of  Table  G.2.) 


At  this  point  all  computations  for  a  particular  node  have  been  completed, 
i  Thus  if  multiple  nodes  per  region  are  being  done,  the  calculations  for  the 
overall  heat  transfer  coefficient  (OHTC)  must  be  repeated  for  the  next  node. 


Begin  new  nodal  loop 
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When  all  nodes  are  calculated: 

I 

Determine  the  average  regional  overall  heat  transfer  coefficient  (U). 

>  U  =  US/UN 

!  U  =  3.96124/1. 0„ 

|  U  =  3.96124  W/M2oC 

I 

I  Corrected  Predicted  OHTC  for  Region  3:  3.96124  W/M2oC 


1  Determine  regional  heat  flux  Q(BR). 

I 

Q(BR)  =  Q(BR)/SAM(BR) 
i  Q(BR)  =  33.3535/0. 3327 

j  Q(BR)  =  100.2510  W/M2 

!  Predicted  Unit  Heat  Flux  for  Region  3:  100.2510  W/M2 


!  From  Array  QALL  for  region  3: 

!  QALL(3)  =  49.70  W/M2 

[ 

Allowable  Unit  Heat  Flux  for  Region  3:  49.70  W/M2 


Determine  supplementary  heat  flux  (QSUPP(BR)). 

QSUPP(BR)  =  Q(BR)  -  QALL(BR) 

QSUPP(BR)  »  100.2510  -  49.70 
QSUPP(BR)  »  50.5510  W/M2 

Required  Supplementary  Heat  Flux:  50.551  W/M2 


Determine  regional  rate  of  heat  loss  (QP). 

OP  -  Q(BR)  .  SAM(BR) 

QP  -  100.2510  •  0.3327 
QP  -  33.3535  W 

Predicted  Heat  Loss  for  Region  3:  33.3535  W 


Determine  regional  rate  of  allowable  heat  loss  (QA). 

QA  -  QALL(BR)  .  SAM(BR) 

QA  -  49.70  •  0.3327 
QA  »  16.535  W 


Allowable  Heat  Loss  for  Region  3:  16.535  W 


fli'l  fflMi 
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Determine  supplementary  heating  requirement  (QSUP). 

QSUP  *  QP  -  QA 

QSUP  =  33.3535  -  16.535 

QSUP  =  16.8185  W 

Required  Supplementary  Heating:  16.8185  W 

At  this  point  the  calculations  are  complete.  If  another  case  were 
desired,  one  must  define  a  new  set  of  constraints  by  selecting  the  appropriate 
answers  to  the  questions  of  Table  G.l. 

Comparison  of  the  hand  computed  variables  with  the  corresponding 
variables  of  Table  G.l  indicates  that  the  computer  solution  and  the  hand 
calculation  agree  to  within  at  least  three  significant  digits.  This  indicates 
the  accuracy  of  the  computer  solution.  The  items  in  Table  G.l  that  do  not 
appear  in  the  hand  calculations  are  either  pertinent  only  with  non-prone 
subjects  or  pertain  solely  to  the  execution  of  the  Secant  algorithm. 
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MIXED  BREATHING  GAS  INTERACTIVE  MODEL  PROGRAM  DESCRIPTION 


This  addendum  to  The  Development  of  Predictive  Engineering  Formulations 
for  Diver  Heating  discusses  the  modification  of  the  air  diving  program  to 

| 

!  permit  the  estimation  of  supplementary  heating  requirements  when  mixed 

| 

i  breathing  gas  is  employed  with  a  pressure  compensated  dry  suit.  We  will 

i  | 

I  discuss  only  the  specific  changes  to  the  numerical  model  code  that  were 
I  i 

necessary  to  perform  mixed  gas  related  calculations.  The  remainder  of  the 

j  numerical  code  is  exactly  as  previously  presented  in  the  main  report.  We  also  ! 

i  will  present  a  listing  of  the  twelve  modules  constituting  the  mixed  breathing  | 

|  gas  executable  program  titled  MGMOD.TSK,  a  revised  flow  chart  of  the  real 

|  function  subroutine  thermal  conductivity  (TC)  which  was  adapted  to  accommodate 

both  nitrogen-oxygen  and  helium-oxygen  mixtures,  a  flow  chart  of  the  new 

function  subroutines  TCMG  and  INTERP  associated  with  TC,  and  a  description  of 

I  the  overlay  structure  required  to  build  this  program  under  DEC'S  RSX-11M 

operating  system.  Although  this  numerical  code  was  developed  for  a  binary 

mixture  of  nonpolar  gases,  the  predictive  program  and  subroutines  could  be 

easily  adapted  to  accommodate  tertiary  mixtures  of  nitrogen,  helium,  and 

oxygen,  whose  use  is  being  explored  experimentally  for  very  deep  diving. 
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Our  present  mixed  gas  program  Is  limited  to  the  1  to  69  ATA  pressure 
range  and  the  -1  to  54  °C  temperature  range  by  the  data  arrays  compiled  within 
the  real  function  subroutine  INTERP.  It  is  our  opinion  that  gas  mixture 
predictive  correlations  for  pressure  and  temperature  should  be  experimentally 
validated  prior  to  assuming  accurate  prediction  of  properties  beyond  the 
ranges  cited. 

There  is  currently  no  available  mixed  gas  experimental  data  analogous  to 
that  which  was  collected  during  the  Diver  Thermal  Protection  series  and  which 
was  used  in  our  major  report;  however,  we  consider  that  MGMOD.TSK  will  predict 
supplementary  heating  requirements  for  resting  divers  who  are  breathing  mixed 
gas  with  an  accuracy  comparable  to  that  obtained  with  HLMOD.TSK.  We  express 
this  opinion  because  the  only  change  to  the  major  program  logic  is  the 
consideration  of  the  effect  of  mixed  gas  permeating  the  open  cell  insulative 
undergarment.  We  note  on  page  142  of  the  report  that  the  tests  of  Nuckols  [1] 
indicated  that  the  insulative  properties  of  diver  undergarment  materials  can 
be  attributed  primarily  to  their  ability  to  entrap  gas.  Nuckols  found  in  a 
normal  environment  that  the  thermal  resistance  of  a  porous  material  was 
proportional  to  the  gas  thermal  conductivity  with  which  it  was  permeated.  The 
laws  of  physics  permitted  us  to  extrapolate  these  findings  to  the  ambient 
conditions  of  diving  with  either  pressurized  air  or  mixed  gas. 

Referring  to  the  listing  of  the  Main  module  MHLMOD.FTN,  the  first 
variation  from  the  original  program  HLMOD.FTN  is  the  introduction  of  two 
variables  in  the  main  program  labeled  COMMON/TRNOSQ/  statement.  YG  is  a  real 
variable  which  is  used  to  quantify  the  mole  fraction  of  the  inert  gas 
component  of  a  binary  breathing  mixture.  IG  is  a  byte  data  type  variable 
employed  to  identify  the  inert  gas  component  of  a  mixture  or  air.  Inert  gases 
considered  in  this  program  are  nitrogen  and  helium,  and  the  symbols  used  in 
the  program  are  ' N '  and  ' H ' ,  respectively.  'A'  is  used  to  designate  air.  The 
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second  modification  to  the  Main  module  is  the  introduction  of  two  additional 
interactive  questions  seen  on  page  388  of  the  program  listing.  Referring  to 
Appendix  E,  Interactive  Program  Flow  Chart,  these  two  questions  would  be 
labeled  4a  and  4b,  respectively ,  and  would  be  interjected  between  questions  j 
labeled  4  and  5  on  page  270. 

4a  Select  breathing  gas: 

(A)ir  or  oxygen  mixed  with  (H)elium 
or  (N)itrogen. 

4b  Enter  mole  fraction  of  inert  component.  j 

i 

Similarly,  questions  4a  and  4b  would  be  Inserted  immediately  before  question  5 
on  page  220  of  Appendix  D,  Interactive  Program  Documentation.  There  are  no 
other  changes  to  the  Main  module.  Further  modifications  which  are  necessary 
to  apply  the  model  for  mixed  gas  breathing  are  contained  within  the  associated 
subroutine  modules.  We  suggest  that  the  reader  refer  to  the  module  listing  of  | 
MHLMOD.FTN  and  the  cited  subroutine  modules  in  order  to  understand  the  program  J 
logic  that  now  will  be  described.  The  program  listing  begins  on  page  381. 

We  see  on  page  393  of  the  program  listing  that  statement  label  118 
determines  the  regional  overall  heat  transfer  coefficient  U  by  means  of  the 
Function  OHTC.  Reviewing  the  real  function  subroutine  OHTC,  we  see  that  it  is 
necessary  to  compute  the  conductivity  ratio  CR  defined  as 

CR  =  TCAR/TC(MT,EDS)  (1)  | 

in  order  to  correct  the  undergarment  reference  specific  thermal  resistance  for 
the  effects  of  entrapped  gas  at  the  ambient  temperature  and  pressure.  The 
variable  MT  is  the  estimated  temperature  of  the  gas  entrapped  in  the 
undergarment  and  EDS  Is  the  depth  below  sea  level  of  the  differential  element 
of  a  body  region  that  is  being  considered.  (See  Fig.  72,  page  155,  for  I 
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illustration  of  such  a  differential  element.)  The  expression  TC(MT.EDS)  calls  j 
the  real  function  subroutine  TC.  TCAR  is  the  reference  value  for  the  thermal 
conductivity  of  air  at  21.1  °C  and  0.0  meters  depth.  This  reference  value  of 
undergarment  thermal  conductivity  is  used  whether  the  breathing  gas  is  air  or 
a  binary  mixture. 

The  called  function  subroutine  TC  also  accesses  the  variables  YG  and  IG  ; 

J 

as  specified  in  the  labeled  C0MM0N/TRN0SQ/  statement.  Using  IG,  the  function 
subroutine  TC  determines  whether  the  ambient  gas  is  air  or  a  mixture.  If  IG 
is  'A',  the  routine  proceeds  exactly  as  explained  in  the  main  report  and 
calculates  the  thermal  conductivity  of  air  at  the  ambient  conditions. 

However,  if  IG  is  either  * N '  or  'H',  the  subroutine  calls  the  real  function 
subroutine  TCMG.  The  statement  labeled  100  of  the  TC  routine  accesses  the 
thermal  conductivity -mixed  gas  function  TCMG  which  calculates  the  mixture 
thermal  conductivity  as  a  function  of  the  inert  gas  mole  fraction, 

I 

temperature,  and  pressure.  j 

i 

The  values  of  ambient  temperature  (°F)  and  pressure  (PSIA)  are  passed  to 
TCMG  by  the  function  call  of  statement  100  as  discussed  above.  The  assigned 
values  of  YG  and  IG  are  again  transferred  by  means  of  a  block  COMMON  i 

statement.  The  real  function  subroutine  INTERP  is  called  from  within 
Function  TCMG  to  calculate  the  values  of  thermal  conductivity  and  viscosity 
for  component  gases  of  the  mixture.  Real  function  INTERP  Interpolates  pure 

I 

gas  property  data  excerpted  from  the  U.S.  Navy  Diving  Gas  Manual  [2]  as  a  j 

l 

function  of  temperature  and  pressure.  Data  of  thermal  conductivity  and 
viscosity  for  nitrogen,  helium,  and  oxygen  are  stored  In  INTERP.  The 
Interpolation  algorithm  Is  again  that  of  Carnahan,  Luther,  and  Wilkes  [3];  see 
page  295  of  the  report.  Using  the  Interpolated  pure  component  values  now 
stored  In  Array  TP,  Function  TCMG  computes  the  mixed  gas  thermal  conductivity 
by  the  Mason-Saxena  form  of  Wassiljewa's  equation  as  is  recommended  by 
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i 


I 

i 

i 


reference  4.  This  computed  value  of  thermal  conductivity  for  a  mixed  gas  at 
ambient  conditions  is  returned  to  Function  OHTC  where  it  is  used  to  calculate 
the  conductivity  ratio  CR,  Equation  1.  The  remainder  of  the  OHTC  function 
subroutine  performs  as  previously  described  in  the  main  report  and  computes 
the  value  of  U  for  the  Main  module. 

The  U.S.  Navy  Diving  Gas  Manual  [2]  tabulates  the  thermal  conductivity  of 
helium-oxygen  gas  mixtures  as  a  function  of  temperature  only  at  1  ATA.  The 
same  is  true  for  the  absolute  viscosity  of  helium-oxygen  mixtures,  but  this 
principal  reference  contains  no  tabulations  of  thermal  conductivity  or 
absolute  viscosity  for  nitrogen-oxygen  mixtures.  Appendix  C  of  the  U.S.  Navy 
Diving  Gas  Manual  implies  that  the  limited  data  that  is  tabulated  for  thermal 
conductivity  of  helium-oxygen  mixtures  at  low  pressure  were  determined 
experimentally  by  Srivastava  and  Barua  [5]  and  that  the  low  pressure  absolute 
viscosity  of  these  mixtures  were  estimated  by  the  Wilke  technique.  A 
description  of  Wilke's  correlation  may  be  found  in  reference  6.  The  U.S.  Navy 
Diving  Gas  Manual  does  tabulate,  from  a  number  of  reliable  references,  the 
thermal  conductivity  and  absolute  viscosity  of  nitrogen,  helium,  and  oxygen  as 
a  function  of  temperature  and  pressure.  The  availability  of  this  pure  gas 
data  permits  reasonably  accurate  estimation  of  mixture  values  of  thermal 
conductivity  by  means  of  the  Wassiljewa  equation  that  was  discussed  in 
Appendix  C  of  our  major  report.  Following  the  recommendation  of  Reid, 
Prausnltz,  and  Sherwood  [4],  we  employ  the  Mason-Saxena  form  of  Wasseljewa's 
equation.  This  form  is  similar  to  that  previously  presented  as  Equation  C.7 
except  that  the  terms,  defined  below,  have  been  substituted  for  the  A^j 


k i , k2  =  Thermal  conductivity  of  the  pure  components 
yi,y2  s  Mole  fraction  of  pure  components 


|  Subscript  1  identifies  the  inert  gas  component  of  the  mixture  and  subscript  2, 
J  the  oxygen  component. 

I 

I 

!  The  *-jj  terms  of  Equation  2  are  represented  as: 


t.U.Q),!"' 


where:  ultu2  =  Absolute  viscosity  of  pure  components 
M1,M2  =  Molecular  weight  of  pure  components 

By  reciprocity,  *21  may  be  determined  with  $12  and  associated  pure  component 
properties. 


*21 


(?)  © 


(4) 


379 


380 

to  the  range  of  accuracy,  for  the  computational  Equation  5,  cited  both  by  Reid 
and  Sherwood  [6]  and  Reid,  Prausnitz,  and  Sherwood  [4].  Also,  our  computed 
thermal  conductivity  values  for  a  binary  mixture  of  helium  and  oxygen  at 

!  elevated  pressures  compared  quite  favorably  with  values  computed  by 

i 

;  Equation  C.7. 


o  o  n  d  r> 
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MHLMOO  (Main  Module) 

REAL  KA,  KR,  COG,  G ( 10 > ,  EXP <29 > ,  SCALY (3,  3>,  SCALYN(2,  3) 

1,  LX,  SX,  IX,  LY,  SY,  IY.LYS,  XP  <  125 ) ,  YP  ( 125 ) 

2,  BF ( 9 ) , GA  <  9 ) ,  QP ( 9  > ,  GSUPP ( 9 ) ,  SAM ( 9  > ,  GALL ( 9 ) 

REAL*8  LABEL <  3  > «  BREG (10) 

INTEGER  FLAG1,  FLAG2,  COR,  BR,  ATT,  SYM<2> 

BYTE  RDU,  GCOMP,  FILE (30),  WQ,  PLD,  PLN, DUM, REU. NST 
1,  PRTL(ll),  PRT, OUT, PU<2) 

COMMON  /PREDD/KA  < 12 ) , KR 

1,  /BODY/B (9, 3  > ,  COR ( 9, 2>, WGT(12> 

2,  /TRNOSG/YG,  IG 

3,  /SUIT/WUGO, DR,  SRO, WOO,  COG,  TWUG0<9> 

4,  /DEBUG/FLAG2, LO 

5,  /OHTCD/RUGHA,  RUG,  ROG,  RQBL,  Rl,  R2,  R3.  Tl,  T3,  FLAG1 

6,  Q1A,  G13 

7,  /PR08/BR,  ATT,  RD,  RDM,  TA,  NN,  TDMS,  DZ,  DZV,  FLAG3,  RDS 

8,  RDU 

9,  /PLOT/P  ( 125,  9 ) ,  LX,  SX,  IX,  LY,  SY,  IY,  LYS,  LABEL,  NREC 

1.  BREG,  XP,  YP,  PD(  125,  3 ) ,  LCL,  CH,  REU,  PRT(13> 

2.  /MI SC /GALL, BF 

C**************************************************************** 
NOTE:  ALL  VALUES  FOR  ARRAYS  ENTERED  VIA  DATA  STATEMENTS 
ARE  ENTERED  IN  COLUMN  MAJOR  ORDER ! ! 

***************»**»***************»*******************»**-tHHt**** 


ARRAY  B  -  CONTAINS  REGIONAL  BODY  DIMENSIONS 
!  *NOTE*  ALL  VALUES  ARE  IN  METERS 

!  -  1ST  COLUMN  CONTAINS  IDENTIFICATION  OF  SHAPE 

!  -1  IMPLIES  SPHERE 

!  0  IMPLIES  CYLINDER 

!  +#  IMPLIES  CONIC  *  DIAMETER  OF  TOP  OF  CONE 

!  -  2ND  #  IS  DIAMETER  OF  SPHERE,  CYLINDER  OR 

BOTTOM  OF  CONE 

!  -  3RD  «  IS  THE  HEIGHT  OF  REGION 

I 

'.DIMENSIONAL  NUMBERS  ENTERED  FOR  MODEL  MAN 
«*NOTE*  ALL  CYLINDERS  AND  CONES  ARE  CONNECTED  END 
!  TO  END. 

ID#  -  REGION  -  SHAPE  /  ENTERED  #'S  / 

!  1  -  HEAD  »  SPHERE  /  -1.0,0.206,0.206  / 

!  2  -  TORSO  «  CYLINDER  /  0.  0,  0.  30,  0.  353  / 

!  3  -  ABDOMEN  «  CYLINDER  /  0.0,0.30,0.353  / 

!  4  -  THIGH  «  CYLINDER  /  0.0,0.  15,0.383  / 

!  5  -  CALF  »  CYLINDER  /  0.  0,  0.  12,  0.  328  / 

!  6  -  FOOT  -  CYLINDER  /  0.0,0.  15,0.  104  / 

!  7  -  UPPER  ARM  -  CYLINDER  /  0.  0,  0.  096,  0.  223  / 

8  -  LOWER  ARM  -  CYLINDER  /  0.  0,  0.  07,  0.  267  / 

!  9  -  HAND  ■  SPHERE  /  -1.0,0.  123,0.  123  / 


C  ARRAY  COR  (9,2)  CONTAINS  THE  CORRESPONDENCE  BETWEEN 

!  OUR  9  REGION  MODEL  ID  #'S  AND  THE  12  SEGMENT 

!  HODY/ZUMRICK  MEASUREMENT  SYSTEM  ID  #'S. 

!  THE  ROW  NUMBERS  OF  THE  ARRAY  CORRESPOND  TO  THE 


BODY  REGION  ID'S  FOR  OUR  9  REGION  MAN. 
FOR  EXAMPLE:  9  REGION  MODEL,  REGION  T0RS0(2) 
CORRESPONDS  TO  THE  12  SEGMENT  MODEL,  SEGMENTS 
CHEST (2)  AND  UPPER  BACK  (4). 


ROW# 

9  REGION 

MODEL  NAME 

12  SEGMENT  MODEL 

CORRESPONDING  SEGMENTS  NAME<ID#> 
ID  #'S  ARE  IN  ARRAY  COR (9, 2) 

1 

HEAD 

HEAD(1 ),  (-1 ) 

2 

TORSO 

CHEST (2), UPPER  BACK (4) 

3 

ABDOMEN 

ABDOMEN (3), LOWER  BACK(5> 

4 

THIGH 

FRONT  THIGH<8), REAR  THIGH(IO) 

5 

CALF 

FRONT  CALF<9) ,  REAR  CALF(ll) 

6 

FOOT 

FOOT ( 12 ) , (-1) 

7 

UPPER  ARM 

ARM<  6 ) ,  (-1 ) 

8 

LOWER  ARM 

ARM<6) , (-1 ) 

9 

HAND 

WRIST (7) , (-1) 

NOTE  (-1)  INDICATES  THAT  ONLY 
ONE  CORRESPONDING  SEGMENT  IS 
AVAILABLE  FROM  12  SEGMENT  MODEL 

ARRAY  SAM<9)  CONTAINS  THE  REGIONAL  SURFACE  AREAS  OF  OUR 
•MODEL  MAN  IN  METERS  SQUARED  (M**2> 

DATA  B/-1.  0,  0.  0,  0.  0,  0.  0,  0.  0,  0.  0,  0.  0,  0.  0.  -1.  0 

1,  0.  206,  0.  30,  0.  30,  0.  15,  0.  12.  0.  15,  0.  096,  0.  07,  0.  123 

2,  0.  206,  0.  353,  0.  353,  0.  383,  0.  328,  O.  104,  0.  223,  0.  267,  0.  123/ 

3,  COR/1,  2.  3,  8,  9,  12,  6,  6,  7,  -1,  4,  5,  10,  11,  -1,  -1,  -1,  -1/ 

4,  SAM/O.  1333,  0.  3327,  0.  3327,  0.  3610,  0.  2474,  0.  1334 

5,  0.  1490,  0.  1174,  0.  0950/ 

ARRAY  KA  CONTAINS  CONSTANTS,  A(i)'S,  NEEDED  FOR  THE 
! SEGMENTAL  TEMPERATURE  PREDICTIONS  EQUATIONS.  THESE 
'.CONSTANTS  WERE  DERIVED  FROM  KERSLAKE'S  MODEL.  SEE 
! TEXT  FOR  DETAILS. 


VARIABLE  KR  IS  CONTANT  R  NEEDED  FOR  SEGMENTAL 
! TEMPERATURE  PREDICTIONS. 

'THE  KR  CONSTANT  WAS  DERIVED  FROM  A  KERSLAKE  TYPE  MODEL 

! SEE  TEXT  FOR  DETAILS  OF  DERIVATION 

DATA  KA/O.  36,  0.  27,  0.  30,  0.  52,  -0.  08,  0.  22,  -0.  64,  -0.  04, 

1-0.  16,  -0.  06,  -0.  55,  -0.  86/ 

1,  KR/2.  946/ 

ARRAY  QALL  <9)  CONTAINS  THE  REGIONAL  ALLOWABLE  HEAT 
! FLUXES <W/M**2)  ADAPTED  FROM  THE  DATA  OF  BURRISS, 

! PRINCIPLE  INVESTIGATOR,  'STUDY  OF  THE  THERMAL  PROCESSES 
IFOR  MAN  IN  SPACE',  NASA  CONTRACT  REPORT  CR-216. 


ARRAY  BF< 9 )  CONTAINS  THE  REGIONAL  BIASING  FACTORS  USED 
ITO  MAKE  PREDICTED  OVERALL  HEAT  TRANSFER  COEFFICIENTS 


on  on  o  o 
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! AGREE  MORE  FAVORABLY  WITH  THE  EXPERIMENTAL  VALUES. 

!  PRED  OHTC  *  BF(  i  )  »  CORRECTED  PRED  OHTC 

DATA  QALL/23.  3,  60.  0,  49.  7,  42.  4,  85.  0.  97.  0,  98.  9,  125.  25 
1/  265.  86/ 

2,  BF/2.  63,  2.  63,  2.  27,  3.  50,  3.  21,  12.  70,  2.  29,  2.  19,  3.  49/ 

DEFINITION  OF  SUIT  THERMAL  PROPERTIES  AND  DIMENSIONS 

! WUGO  =  WIDTH  (THICKNESS)  OF  UNDER  GARMENT  AT  SEA 
!  LEVEL  (CM).  . 

! SRO  *  SPECIFIC  RESISTANCE  OF  UNDER  GARMENT 
’  AT  SEA  LEVEL  (CLO/CM) 

! DR  =»  DECIMAL  7.  CHANGE  IN  SRO  PER  DECIMAL  X  CHANGE 
!  IN  UNDERGARMENT  THICKNESS 

!  (CLO/CM/CLO/CM/CM/CM)  (IE:  DIMENSIONLESS) 

'.  EXPERIMENTALLY  DETERMINED.  SEE  TEXT  FOR 

!  DETAILS. 

!WOG  =  WIDTH  OF  OUTER  GARMENT  (CM)  «>  1/16  INCH 
'.COG  -  THERMAL  CONDUCTIVITY  OF  OUTER  GARMENT  MATERIAL 
!  WATTS /M*C) 


TWUGO  -  ARRAY  CONTAINING  THE  •  OF  THICKNESSES  OF 
'.  UNDERGARMENT  MATERIAL  FOR  EACH  REGION. 

!  EACH  LAYER  IS  'WUGO'  THICK. 


WGT  -  CONTAINS  SURFACE  AREA  WEIGHTS  FOR  THE  12  SEGMENT 
!  HODY  MODEL. 

DATA  WUGO,  SRO,  DR,  WOG,  COG/1.  63,  2.  27,  0.  1175,  0.  15875 

1,  0.  17307/ 

2,  TWUGO/ 1.  0,  1.  0,  1.  0,  1.  0,  1.  0,  2.  0,  1.  0,  1.  0,  1.  0/ 

3,  WGT /O.  070,  0.  085,  0.  085,  0.  090,  0.  090,  0.  140,  0.  050,  0.  095 

4,  0.  065,  0.  095,  0.  065,  0.  070/ 

BREG  -  ARRAY  CONTAIN  BODY  REGION  NAMES  FOR  PRINT 
!  ORDERED  ACCORDING  TO  REGION  ID  # 

I 

DATA  BREG/ 'HEAD',  'TORSO',  'ABDOMEN',  'THIGH',  'CALF', 

1  'FOOT ' ,  'UP  ARM',  'LOW  ARM',  'HAND',  'TIME'/ 

C***************«*****************************»********»**»***»** 
'.PLOTTING  AND  COMPARISON  VARIABLES 

! SCALY  «  ARRAY  CONTAINS  Y  AXIS  SCALES  FOR  T, Q,  AND  U 


!  PLOTS 

!  CONTENTS  OF  ARRAY  SCALY (3,  3) 


COLUMN/ '.  1 

ROW  ! 

2 

3 

1 

1 

1 

!  5.  0 

20.  0 

4.  0 

TEMPERATURES  | 

2 

!  5.  0 

0.  0 

50.  0 

HEAT  FLUXES  i 

3 

!  4.  0 

0.  0 

4.  0 

TRANSFER  COEF.  j 
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COLUMN  1  CONTAINS  LENGTH  OF  Y-AXIS 
COLUMN  2  CONTAINS  STARTING  Y-AXIS  VALUE 
COLUMN  3  CONTAINS  Y-AXIS  INCREMENT 
(IE:  Y-AXIS  UN ITS/ INCH (CM)  ) 


SCALYN  =  ARRAY  CONTAINS  Y  AXIS  SCALES  FOR 

NORMALIZED  TEMPERATURE  AND  BIOT  *  PLOTS  j 

CONTENTS  OF  ARRAY  SCALYN (2,  3) 

COLUMN/ !  1  2  3 

ROW  ! 

1  i 4.  0  0.5  0.25  NORMALIZED  TEMPERATURES  | 

2  !4.  0  0.0  10.0  BIOT  NUMBERS  I 

COLUMN  1  CONTAINS  LENGTH  OF  Y-AXIS  j 

COLUMN  2  CONTAINS  STARTING  Y-AXIS  VALUE 

COLUMN  3  CONTAINS  Y-AXIS  INCREMENT  | 

(IE:  Y-AXIS  UNITS/ INCH (CM)  )  I 


LX  »  LENGTH  OF  X-AXIS  , 

SX  *  STARTING  VALUE  FOR  X-AXIS  1 

IX  -  INCREMENT  FOR  X-AXIS 

LY  *  LENGTH  OF  Y-AXIS 

SY  =  STARTING  VALUE  FOR  Y-AXIS 

IY  »  INCREMENT  FOR  Y-AXIS 

LYS  *  LENGTH  Y-AXIS  SAVED  ! 

XP  ■  ARRAY  FOR  X-AXIS  VALUES  FOR  PLOTTING 

YP  »  ARRAY  FOR  Y-AXIS  VALUES  FOR  PLOTTING 

LABEL  *  ARRAY  FOR  LEGEND  NAMES  FOR  PLOTS  I 

P  >  ARRAY  FOR  SAVING  X  AND  Y  VALUES  FOR  PLOTTING  j 

FILE  -  ARRAY  FOR  NAME  OF  FILE  CONTAINING  EXPERIMENTAL 

DATA  FOR  COMPARISON  j 

TAR  =  TOTAL  AREA  OF  EXPERIMENTAL  SUBJECT  j 

QEXPT  =  SUM  OF  EXPERIMENTAL  Q'S  FOR  SIMPLE  SUM 
UEXPT  «  SUM  OF  EXPERIMENTAL  U'S 
TEXPT  =  SUM  OF  EXPERIMENTAL  T'S 
PLD  «  INDICATES  WHETHER  DIMENSIONAL  PLOTS 
ARE  WANTED  OR  NOT 

PLN  -  INDICATES  WHETHER  NON-DIMENSIONAL  PLOTS 

ARE  WANTED  OR  NOT  | 

IR  =  0,4,6.  0-  NO  LINEARIZED  EXPT.  PLOTS 

4=  PLOT  LINEARIZED  EXPT.  Q'S 
6«  PLOT  LINEARIZED  EXPT.  U'S 
SWGT  ■  SUM  OF  HODY  WEIGHTS  FOR  CONVERSION 

FROM  HODY'S  12  SEGMENTS  TO  THE  MODEL'S  9 
REGION  FORM. 

SWGTT  *  SUM  OF  HODY  WEIGHTS  FOR  CONVERSION 

OF  SEGMENTAL  EXPERIMENTAL  TEMPERATURES 
FROM  HODY'S  12  SEGMENTS  TO  THE  MODEL'S  9 
REGION  FORM. 

SWGTQ  -  SUM  OF  HODY  WEIGHTS  FOR  CONVERSION 

OF  SEGMENTAL  EXPERIMENTAL  HEAT  FLOWS 
FROM  HODY'S  12  SEGMENTS  TO  THE  MODEL'S  9 
REGION  FORM. 


iSWGTU  ■  SUM  OF  HODY  WEIGHTS  FOR  CONVERSION 
!  OF  SEGMENTAL  EXPERIMENTAL  OVERALL  HEAT 

*  TRANSFER  COEFFICIENTS 

!  FROM  HODY'S  12  SEGMENTS  TO  THE  MODEL'S  9 

!  REGION  FORM. 

!LFN  »  LENGTH  OF  EXPT.  FILE  NAME.  (NO.  OF  CHARACTERS) 
! TS  »  TIME  START  FOR  LINEARIZATION 
! TE  »  TIME  END  FOR  LINEARIZATION 

•NREC  a  NUMBER  OF  EXPT.  RECORDS  (TIMES)  AVAILABLE  FOR 

!  COMPARISON 

IQCOMP  =  Y  OR  N,  INDICATES  DESIRE  FOR  COMPARISON  OF 
!  EXPERIMENTAL  VALUE  WITH  PREDICTIONS. 

! EXP  IS  THE  ARRAY  USED  TO  READ  IN  EXPERIMENTAL  DATA 
‘VALUES  FOR  COMPARISON 

‘ARRAY  Q  CONTAINS  THE  9  COMPUTED  REGIONAL  HEAT  FLUXES 
! ARRAY  QP  CONTAINS  THE  9  COMPUTED  REGIONAL  HEAT  FLOWS 
! ARRAY  QA  CONTAINS  THE  9  ASSUMED  REGIONAL  ALLOWABLE 
‘.HEAT  FLOWS 

‘ARRAY  QSUPP  CONTAINS  THE  9  COMPUTED  REQUIRED 
! REGIONAL  HEAT  FLOWS 

ARRAY  SCALY  IS  ENTERED  INTO  THE  COMPUTER  VIA  A  DATA 
! STATEMENT  IN  COLUMN  MAJOR  ORDER  AS: 

!  LYT,  LYQ,  LYU,  SYT,  SYQ.  SYU,  IYT,  IYQ,  I  YU 
!  WHERE:  LYX  »>  LENGTH  OF  Y— AXIS 

!  SYX  ®>  STARTING  VALUE  FOR  Y-AXIS 

!  IYX  »>  INCREMENTING  VALUE  FOR  Y-AXIS 

!  (X  IN  THE  ABOVE  IMPLIES  T'S,  Q'S,  OR 

!  U'S> 


ARRAY  SCALN  IS  ENTERED  INTO  THE  COMPUTER  VIA  A  DATA 
(STATEMENT  IN  COLUMN  MAJOR  ORDER  AS: 

!  LYTN, LYBI. SYTN. SYBI. IYTN, IYBN 
!  WHERE:  LYXX  ■>  LENGTH  OF  Y-AXIS 

!  SYXX  »>  STARTING  VALUE  FOR  Y-AXIS 

!  I YXX  *>  INCREMENTING  VALUE  FOR  Y-AXIS 

!  (XX  IN  THE  ABOVE  IMPLIES  TN'S  OR  BI 'S) 


VARIABLES  LX. SX. IX  ARE  ENTERED  INTO  THE  PROGRAM  VIA 
! A  DATA  STATEMENT  AS: 

!  LX.  SX,  IX 

!  WHERE:  LX  ->  LENGTH  OF  X-AXIS 

!  SX  ->  STARTING  VALUE  FOR  X-AXIS 

!  IX  ->  INCREMENTING  VALUE  FOR  X-AXIS 


SYM  IS  A  VECTOR  CONTAINING  THE  INTEGERS  CORRESPONDING 
‘.TO  THE  SYMBOLS  TO  BE  USED  FOR  THE  EXPERIMENTAL  AND 
‘.PREDICTED  VALUES  RESPECT  I VILY. 

DATA  SCALY/5.  0,  5.  0,  4.  0,  20.  0,  0.  0,  0.  0,  4.  0,  50.  0,  4.  0/ 


o  o 
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1#  SCALYN/4.  0,  4.  0,  0.  5-  0.  0,  0.  25,  10.  0/ 

2,  LX,  SX,  IX/7.  0,  0.  0,  20.  0/ 

3,  SYM/3,  4/ 

C*******************************************-**-******************* 
c  THE  FOLLOWING  VARIABLES  ARE  USED  AS  TEMPORARY  VARIABLES 

'.AND  HAVE  NO  PERMANENT  MEANING 
! DUM,  I,  J,  L,  M,  N 

C  *********************************************************************** 
! THIS  SYSTEM  LEVEL  SUBROUTINE  CALL  IS  USED  TO  ATTACH  THE 

! TERMINAL  TO  THIS  TASK.  THIS  PREVENTS  RETURNS  USED  TO 
! TERMINATE  RESPONSES  FROM  BEING  INTERPRETED  BY  THE 
•OPERATING  SYSTEMS  MONITOR  CONTROL  ROUTINE. 

CALL  WTQIO  <"1420, "5) 


MAIN 

VARIABLES  DEFINED  IN  MODULE  MAIN 

! FLAG2 

a 

DEBUG  PRINT  FLAG  <-l«>YES.  0«>N0) 

!  BR 

a 

BODY  REGION  ID  (0-9) 

!RD 

i 

“ 

REFERENCE  DEPTH  »>  DEPTH  BELOW  SEA  LEVEL 

OF  SHOULDER  LINE  (FSW.  MSW,  PSI ) 

!  RDU 

i 

33 

INDICATOR  OF  UNITS  OF 
(F-FSW.  M-MSW,  P*PSI> 

!  NN 

i 

a 

#  OF  NODE  TO  DEV IDE  EACH  REGION  INTO 

FOR  FINITE  DIFFERENCE  CALCULATIONS 

!OUT 

i 

i 

a 

VARIABLE  CONTAINING  DESIRED  LOCATION 

FOR  OUTPUT  PRINTS  (T»TERMINAL, 

F-DR: DMPDAT.  LST) 

!  TDMS 

i 

* 

TEMPERATURE  -  MEAN  SKIN  -  AT  WHICH  TO  PERFORM 
CALCULATIONS  (DESIGN  MEAN  SKIN  TEMPERATURE) 

!  TA 

i 

* 

TEMPERATURE  -  AMBIENT  -  AT  WHICH  TO  PERFORM 
CALCULATIONS 

!T1 

a 

TEMPERATURE  OF  THE  SKIN  SURFACE 

!  ATT 

i 

ATTITUDE  OF  SUBJECT  (DIVER) 

(O-SITTING,  1-STANDING,  2-LAY  HORTIZONTAL) 

!  I  TOT 
« 

j 

FLAG  VARIABLE  INDICATING  WHETHER  OR  NOT 

DOING  ALL  REGIONS  OR  A  SINGLE  REGION 
<  — 1— >ALL  REGIONS,  0->S INGLE  REGION) 

!  LO 

j 

i 

a 

VARIABLE  CONTAINING  LOGICAL  UNIT  # 

AT  WHICH  TO  PRINT  OUTPUT  PRINTS 
( 5»>TERMINAL,  3->DR: DMPDAT.  LST) 

!  U 

1 

i 

a 

VARIABLE  CONTAINING  RESULTS  OF  CALCULATION 

OF  OVERALL  HEAT  TRANSFER  COEFFICIENT 

FOR  SPECIFIED  NODE  OF  SELECTED  REGION 

!  US 

i 

" 

VARIABLE  CONTAINING  RUNNING  SUM  OF  NODAL 

U'S 

!  UN 

I 

“ 

VARIABLE  CONTAINING  THE  COUNT  OF  THE 

NUMBER  OF  NODES  IN  THE  SUM  (US) 

!QR 

i 

“ 

VARIABLE  CONTAINING  HEAT  LOSS  CALCULATED  FOR 
EACH  NODE 

!  QSUP 

j 

a 

REQUIRED  SUPPLEMENTARY  HEAT  FLUX  FOR 

THE  REGION  OF  INTEREST 

C 


! THE  FOLLOWING  VARIABLE  FOUND  IN  MODULE  MAIN  ARE 
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C 


C 


30 

31 
C 
C 
C 


32 


39 


40 

41 


44 

6 


7 

71 

72 


73 


! DEFINED  IN  OTHER  NODULES  (SUBROUTINES.  FUNCTIONS) 
!DZ.  DZV.  FLAG1,  ROBL.  ROC.  RUG.  RUGHA.  Rl.  R2,  R3.  T3 


!  INTEGER  VARIABLE  'IB '  AND  ARRAY  'PRTL '  ARE  BOTH  USED 
•BY  THE  OUTPUT  PRINTING  ROUTINES. 

•THESE  VARIABLES  HAVE  BEEN  ASSIGNED  TO  ALLOW  MORE 
•EFFICIENT  USE  OF  THE  FORTRAN  CODE 


DATA  PRTL/'  ',  'C'.  'O'.  'R'.  'R',  'E'.  'C',  'T',  'E'.  'D',  '  '/ 
1,  IB/'—'/ 

WRITE  (5,31) 

FORMAT  ( '*ARE  YOU  A  RESEARCH  USER  ?  (Y, N. X)  ') 

THESE  VARIABLE  ARE  BEING  PRE-DEFINED  FOR  THE 
PRODUCTION  MODE.  ALL  OF  THESE  VARIABLE  CAN  BE 
DYNAMICALLY  MODIFIED  IN  THE  RESEARCH  MODE. 

REU-  'N ' 

8R-0 

FLAC2-0 

FLAG 1-0 

IR-0 

NN-1 

OUT-'T' 

QCOMP-'N' 

READ  (5.32)  REU 
FORMAT  (1A1) 

IF  (REU.  NE.  'Y'.  AND.  REU.  NE.  'N ' .  AND.  REU.  NE.  'X') 

1  GO  TO  30 

IF  (REU.  Ed.  'N')  CO  TO  44 
IF  (REU.  EQ.  'X')  GO  TO  15 
WRITE  (5.39) 

FORMAT  (  '*D0  YOU  WISH  TO  CORRECT  PREDICTED  ' 

1,  '"U"  VALUES  ?  (Y/N)  ') 

READ  (5.32)  DUM 
IF  (DUM.  EQ.  'Y')  REU- 'S' 

WRITE  (5.41) 

FORMAT  ('*D0  YOU  WISH  DEBUG  PRINTS:  ?  (Y/N):  ') 

READ  (5.32)  DUM 
FLA02— -1 

IF  (DUM.  EQ.  'Y'>  GO  TO  44 

FLAG2-0 

WRITE  (5.6) 

FORMAT  ( '4ENTER  DEPTH  IN  (M)SW, (F)SW  OR  (P)SIG  BY  ' 
1,'(M#,FI,P#):  CF3  ',  T70) 

READ  (5,7)  RDU,  RD 
FORMAT  (1A1.F10.  2) 

WRITE  (5.72) 

FORMAT  ('  SELECT  BREATHINO  GAS:  '. / 

1.  '•( A) IR  OR  OXYGEN  MIXED  WITH  (H)ELIUM  OR  (N) ITROGEN ' 

2, '  (A,  H,  N):  ' .  T70 ) 

READ  (5.32)  IG 

IF  ( 10.  EQ.  'A' )  GO  TO  50 
WRITE  (5,73)  IG 

FORMAT  ('*  ENTER  MOLE  FRACTION  OF  INERT  MAI 


1,  '  COMPONENT:  CF3',T70) 

READ  <5,74)  YG 
74  FORMAT  <F6.  3) 

50  WRITE  (5,51)  <  IB,  M-l,  39) ,  SRO,  WUOO,  WOG,  COG 

51  FORMAT  ('  ',  39A2, /»  '  SEA  LEVEL  GARMENT  ENSEMBLE  ' 

1,  'PROPERTIES',  / 

2,  'Ol-SPECFIC  THERMAL  RESISTANCE  OF  UNDERGARMENT:  ' 

3,  '(CLO/CM)' 

4,  T58, FS.  2,  /,  '  2-UNIT  THICKNESS  OF  UNDERGARMENT:  ' 

5,  '(CM)  ' 

6,  T58,  F8.  2,  /,  '  3-THICKNESS  OF  OUTER  ' 

7,  'GARMENT:  (CM) ', T58, F8.  4, /,  '  4-THERMAL  CONDUCTIVITY' 

8,  '  OF  OUTER  GARMENT:  <W/M*C)' 

9,  T58,  F8.  4,  /,  '4ENTER  (1-4)  TO  ALTER,  (R)  ' 

1,  'TO  REINITIALIZE,  <X>  FOR  NO  ' 

2,  'CHANGE:  ') 

READ  (5,32)  IT 

IF  (IT.  EG.  'X')  GO  TO  58 
IF  (IT.  EG.  'R')  FL4*REINIT<1) 

IF  <  IT.  EG.  'R  '  >  GO  TO  50 
DECODE  (1,53,  IT)  IT 

53  FORMAT  (ID 

GO  TO  (54,  55,  56,  57)  IT 
CO  TO  50 

54  WRITE  (5,541) 

541  FORMAT  < '»  ENTER  1  -  SPECIFIC  THERMAL  RESISTANCE  ' 

1,  'OF  UNDERGARMENT  (CLO/CM):  CF3  ') 

READ  (5,542)  SRO 

542  FORMAT  (F10.  2) 

GO  TO  50 

55  WRITE  (5,551) 

551  FORMAT  ('4  ENTER  2  -  UNIT  THICKNESS  OF  UNDERGARMENT' 

1,  '  (CM):  CF3  ') 

READ  (5,552)  WUGO 

552  FORMAT  (F10.  3) 

GO  TO  50 

56  WRITE  (5,561) 

561  FORMAT  ( '*  ENTER  THICKNESS  OF  OUTER  GARMENT  (CM):  CF3  ' 
READ  (5,562)  WOG 

562  FORMAT  (F10.  5) 

GO  TO  50 

57  WRITE  (5,571) 

571  FORMAT  ( '*  ENTER  THERMAL  CONDUCTIVITY  OF  OUTER  GARMENT 
1, '  <W/M*C>:  CF3  ') 

READ  (5,572)  COG 

572  FORMAT  (FIO. 5) 

GO  TO  50 

58  WRITE  (5,580)  ( IB,  M-i,  39),  <M,  BREG(M),  TWUGO(M),  WUGO 
l,  ( TWUGO ( M ) *WUGO ) ,  M« 1 ,  9) 

580  FORMAT  ('  ',39A2, /, '  REGIONAL  UNDERGARMENT  THICKNESS' 

1,  '  (CM)  /,  'O',  T37,  'UNIT',  T47,  'ACTUAL',  / 

2,  '  ' ,  T4,  'ID  #  T12,  'REGION  ' ,  T23,  'MULTIPLIER '.  T35 

3,  'THICKNESS',  T46,  'THICKNESS',/ 


390  i 


4,  9(5X,  III  5X,  1A8,  5X,  F6.  2,  '  *  ',  F6.  2,  '  »  ',FB.  4, /),/ 

5,  '9ENTER  (1-9)  TO  ALTER,  <R>  TO  ' 

6,  'REINITIALIZE,  (X)  FOR  NO  CHANGE:  ') 

READ  (5,32)  IT 

IF  (IT.  EQ.  'X')  GO  TO  59 
IF  (IT.  EG.  'R ' )  FL4»REINIT(2) 

IF  (IT.  EQ.  'R')  GO  TO  58 
DECODE  (1,53,  IT)  IT 
WRITE  (5,584)  IT,  BREG(  IT) 

584  FORMAT  ( '9ENTER  NEW  MULTIPLIER  FOR  ',11, '-',1A8 
l,  ':  CF3  ') 

READ  (5,585)  TWUGO(IT) 

585  FORMAT  (F6.  2) 

GO  TO  58 

59  WRITE  (5,590)  ( IB,  M-l,  39),  (M,  BREG(M),  QALL(M),  M-l,  9) 

590  FORMAT  ('  ',39A2, /, '  ALLOWABLE  REGIONAL  HEAT  FLUX' 

1,  '  (W/M**2)  ',  /,  'O',  T32,  'ALLOWABLE',/,  '  ',T4,  'ID  #' 

2,  T12,  'REGION',  T32,  'HEAT  FLUX',/ 

3,  9(  '  ',  5X,  II,  5X,  1A8,  10X,  F10.  2,  /).  / 

4,  'CENTER  (1-9)  TO  ALTER,  (R)  TO  ' 

1,  'REINITIALIZE.  (X)  FOR  NO  CHANCE:  ') 

READ  (5,32)  IT 

IF  (IT.  EQ.  'X')  GO  TO  60 

IF  (IT.  EQ.  'R'>  FL4«REINIT<3) 

IF  (IT.  EQ.  'R'>  GO  TO  59 
DECODE  (1,53,  IT)  IT 
WRITE  (5,591)  IT 

591  FORMAT  ( ' 9ENTER  ALLOWABLE  HEAT  FLUX  FOR  REGION  ' 

1,11,'  (W/M**2):  CF3  ') 

READ  (5,592)  QALL(IT) 

592  FORMAT  (F10.  3) 

GO  TO  59 

60  WRITE  (5,600)  ( IB, M-l,  39 ) ,  (M, BREG(M) , BF (M) , M-l, 9 ) 

600  FORMAT  ('  ',39A2//.  '  REGIONAL  BIASING  FACTORS' 

1,  '  (DIMENSIONLESS)  ',  / 

2,  'O',  T4,  'ID  #' 

3,  T12,  'REGION',  T31,  'BIASING  FACTOR',/ 

4,  9<  '  ',  5X,  II,  5X<  1A8,  10X,  F10.  2,  /  ),  / 

5,  '*ENTER  (1-9)  TO  ALTER.  (R)  TO  ' 

6,  'REINITIALIZE,  <X)  FOR  NO  CHANGE:  ') 

READ  (5,32)  IT 

IF  (IT.  EQ.  'X')  GO  TO  609 
IF  (IT.  EQ.  'R'>  FL4-REINIT(4> 

IF  (IT.  EQ.  'R'>  GO  TO  60 
DECODE  (1,53,  IT)  IT 
WRITE  (5,601)  IT 

601  FORMAT  (  '9ENTER  BIASING  FACTOR  FOR  REGION  ' 

1,11,'  (DIMENSIONLESS):  CF3  ') 

READ  (5,602)  BF(IT) 

602  FORMAT  (F10.  3) 

GO  TO  60 

609  WRITE  (5,111) 

111  FORMAT  ('6WRITE  OUTPUT  FILE  WHERE:  ' 
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1 ,  '  < T-SCREEN,  F-DMPDAT.  LST )  ' ) 

READ  <5.32)  OUT 
WRITE  <5.  10) 

10  FORMAT  (CENTER  #  NODES:  Cl  3  ') 

READ  <  5,  1 1 )  NN 

11  FORMAT  (114) 

IF  <REU.  EQ.  'N')  00  TO  43 
WRITE  <5.  16) 

16  FORMAT  < '*D0  YOU  WISH  TO  COMPARE  T. Q,  U  VALUES  WITH  ' 

1.  'EXP"T  DATA:  <Y/N>  ') 

READ  <5.161)  QCOMP.CH 

161  FORMAT  < 1 Al. : F10.  2) 

IF  <QCOMP.  NE.  'Y')  00  TO  43 

162  NREC-0 

WRITE  <5.1621) 

1621  FORMAT  < '4ENTER  TOTAL  SURFACE  AREA  OF  EXP"T' 

1'  SUBJECT  IN  M**2:  CF3  ') 

READ  <5.1622)  TAR 

1622  FORMAT  <F10.  2) 

IF  <TAR.  LE.  0.  0)  00  TO  162 

163  WRITE  <5.1630) 

1630  FORMAT  < '*£NTER  EXPERIMENTAL  DATA  FILE  NAME:  ') 

READ  <5,1631)  LFN.  <FILE<L).  L-l,  LFN) 

1631  FORMAT  <  Q, <LFN> A 1 ) 

FILE<LFN+1 >-”0  IWRITE  NULL 

OPEN  <UNIT»2,  TYPE* 'OLD ' ,  ACCESS- 'DIRECT ', 

1 NAME-FILE.  FORM- 'FORMATTED ', 

2CARR I AOECONTROL- 'FORTRAN ' .  READONLY, 

3RECORDSIZE-200,  ERR- 163) 

READ  <2 '1,164)  NREC 

164  FORMAT  <I4> 

00  TO  114 

43  WRITE  <5,  431)  <IB.M-1,39) 

431  FORMAT  <'  ',39A2, /, '*ENTER  DESIGN  MEAN  SKIN  ' 

1,  'TEMPERATURE  <C>:  CF3',T65) 

READ  <5,433)  TDMS 
433  FORMAT  <F10.  3) 

4330  WRITE  <5,432) 

432  FORMAT  <  '$ENTER  AMBIENT  TEMPERATURE  >■  1.0  C:  CF3',T65> 

READ  <5,433)  TA 

IF  <TA.  LT.  1.0)  00  TO  4330 
114  WRITE  <5,  S) 

8  FORMAT  <  '(SELECT  BODY  REOION  <l-?>  OR  <0>  FOR  ALL  ' 

1,  'REGIONS:  CI3'.T65> 

READ  <5,81)  BR 
SI  FORMAT  <I10> 

WRITE  <5,82) 

82  FORMAT  < '4SELECT  POSTURE  OF  SUBJECT  <0-SIT,  1-STAND,  ' 

1,  '2-PRONE):  CI3',T65) 

READ  <5,81)  ATT 
I TOT -0 

IF  <BR.EQ.  0)  ITOT— 1 
PRT  < 1 >- '  ' 
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PV-2 

IF  (REU.  EQ.  'S'.  OR.  REU.  EQ.  'N'>  00  TO  821 
PRT(2)-'U' 

PRT(3>* 'N ' 

PV*4 

821  DO  822  M-2, 11 
PRT(PV)-PRTL(M> 

822  PV-PV+1 
PV-PV- 1 

IF  <ITOT.  EQ.  0)  00  TO  113 
DO  14  BR-1,9 
113  LO-5 

IF  (OUT.  EQ.  'T'  >  00  TO  1130 
L0*3 

OPEN  (UNIT-LO,  NAME*'SY:  DMPDAr.  LST  '  > 

1130  WRITE  (LO,  11301) 

11301  FORMAT  <'0'> 

IF  (QCOMP.NE.  'Y')  GO  Tw  1134 

DO  150  1*1 *  NREC 

READ  (2 '1  +  1,1131)  EXP 

1 131  FORMAT  ( 13F8.  2,  15F*. 2, f &.  1 ) 

TA-EXP(27) 

IF  (TA.  GT.  0.  0)  GO  TO  11311 
DO  11310  J»2,  7 
P<I,  J)—l.  0 

11310  CONTINUE 

11311  TDMS-O.  0 
SWOT-O.  0 

DO  1132  M«14,  25 

C  DROP  VALUE  St  WEIGHT  FROM  SUM  IF  'T'  VALUE  <«  0.0 
IF  (EXP  <M) .  LE.  0.  0)  GO  TO  1132 
TDMS«TDMS+(WGT<M-13)*EXP(M) ) 

SWGT  *»SWGT +WGT  ( M- 13 ) 

1132  CONTINUE 

IF  (SWOT.  EQ.  0.  0)  GO  TO  11321 

TDMS-TDMS/SWGT 
11321  PCI, l)-EXP(l) 

WRITE  (LO, 1133)  EXP(l) 

1133  FORMAT  ('  EXPERIMENTAL  TIME:  ',F8.  2) 

1134  LY-'  MSW' 

IF  (RDU.  EQ.  'F'>  LY* '  FSW ' 

IF  (RDU.  EQ.  'P')  LY*'  PSI ' 

T1*TR(TDMS, BR) 

WRITE  (LO,  115)  BR,  ATT,  TDMS,  RD,  LY,  TA,  BR,  T1 
115  FORMAT  ( 'OBODY  REGION:  ',  T56,  110,  / 

1,  '  POSTURE:  O-SIT,  1 -STAND, 2-PRONE ', T56,  110, / 

2,  '  DESIGN  MEAN  SKIN  TEMPERATURE:  ',T54,  F10.  2,  '  C',/ 

3,  '  REFERENCE  DEPTH:  ',  T52,  FlO.  2,  1A4,  / 

4,  '  AMBIENT  TEMPERATURE:  ',T54,F10.  2,  '  C',// 

5,  '  PREDICTED  TEMPERATURE  FOR  REGION  ',  11,  ':  ',  T54 

6,  FlO.  2,  '  C'> 

IF  (NN.  EQ.  1)  GO  TO  116 
WRITE  (LO, 1151)  NN 


tt*-**2* 
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11 

1 


1161 


I  11611 

I 

!  1162 
|  118 


1180 


11801 

11802 


FORMAT  ('  NUMBER  OF  NODES:  ',T56,  110) 

G(BR)-0.  0 
US-0.  0 
UN-0.  0 

! NOTE :  HEAD ( 1 )  AND  HAND ( 9 )  ARE  SPHERES  AND  ARE  THUS 
!  MODELED  AS  HAVING  ONE  NODE  ONLY  FOR  ALL 

!  ATTITUDES,  O-SIT,  1-STAND,  2-LAY  HORT. 

!  THIGH(4)  IS  A  HORTIZONTAL  CYLINDER  FOR 

!  ATT  -  0<SIT)  AND  THUS  HAS  ONLY  ONE  NODE 

!  WHEN  ATT-1 (STAND),  2(LAY  HORT)  THIGH(4) 

!  MATCHS  ALL  THE  OTHER  CYLINDERS  IN 

!  ATTITUDE 

IF  <BR.  NE.  1.  AND.  BR.  NE.  9.  AND.  (BR.  NE.  4.  OR.  ATT.  NE.  0)  > 

1  GO  TO  1161 
J=1 

GO  TO  118 


NOTE: 

P(I, 1)-TIME 
P ( I , 2 ) -T  EXPERIMENTAL 
P< I. 3)-T  PREDICTED 
P  < 1 , 4 ) — G  EXPERIMENTAL 
P ( 1 , 5 > -G  PREDICTED 
P (li  6) — U  EXPERIMENTAL 
P < 1 1 7 ) -U  PREDICTED 
P<I, 8 ) -TDMS 
P< I, 9)-TA 


DO  13  J-l.NN 

IF  (NN.  EG.  1 )  GO  TO  118 

IF  (J.  EG.  1)  WRITE  <L0,  11611) 

FORMAT  ('0') 

WRITE  (LO,  1162)  BR,  J 

FORMAT  ('  REGION  ',11,'  NODE  ',14) 

U-OHTC ( J ) 

! CHECK  TO  SEE  IF  CONVECTIVE  HEAT  TRANSFER  COEFFICIENT 
i  WAS  SUCCESSFULLY  DETERMINED.  FLAG3-0.  0  «>  SUCCESS 
!  FLAG3-1 .  0  AND  FLA03-2.  0  ->  FAILURE  (SEE  SUBROUTINE 
!  CHTC  FOR  DIFFERENCE  BETWEEN  FLAG3-1.  0  AND  2.0) 

IF  (FLAG3.  GT.  0.  0)  GO  TO  148 

! CHECK  TO  SEE  IF  OHTC  WAS  SUCCESSFULLY  DETERMINED. 

!  FLAG1  >-  -1  SUCCESS,  FLAG1  <  -1  FAILURE. 

!  (SEE  SUBROUTINE  OHTC  FOR  MEANING  OF  VARIOUS 
!  VALUES  OF  FLAG1) 

IF  (FLAG1.  GE.  -1 )  GO  TO  1181 
IF  (FLAG1.  NE. -3)  GO  TO  11801 
WRITE  (LO,  1180)  T3,  TA 

FORMAT  ('  ESTIMATE  OF  OUTSIDE  SURF.  TEMP.,  ',F5.  2 
1,  '  LESS  THAN  AMBIENT  TEMP.  ,  ',F5.  2) 

GO  TO  11803 

WRITE  (LO, 11802)  NTOL 

FORMAT  ('  MAXIMUN  #  OF  ITERATIONS  (NTOL- ' 

1,14,  ')  ALLOWED  FOR  ESTIMATING',/ 
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2,  '  THE  OUTSIDE  SURFACE  TEMPERATURE  OF  THE  ' 

3,  'ENSEMBLE  BY  THE  SECANT  METHOD  EXCEEDED') 

1 1803  WRITE  (LO, 11804) 

11804  FORMAT  (20X,  '  RUN  TERMINATED  !') 

GO  TO  148 

C  IF  DOING  PRODUCTION  MODE  RUN  (REU«N)  THEN  MUST  APPLY 

! BIASING  FACTOR  BF(BR)  TO  THE  NODAL  U  VALUE  . 

'.NOTE:  ONLY  ON  NODE  IS  DEFINED  PER  REGION  IN  THE 
! PRODUCTION  MODE. 

1181  IF  <REU.  EG.  'N'.  OR.  REU.  EQ.  'S')  U»U*BF(BR> 

US-US+U 

UN-UN+1.  0 

QR»U*(T1-TA>  ‘.WATT/M2 

G  (  BR  )  -G  ( BR  )  +  (  GR*SAM ( BR ) /FLOAT ( NN ) )  IWATTS 
IF  (FLAG2. EQ.  0)  GO  TO  119 

WRITE  (LO. 1182)  RUG, ROG, ROBL. R1 . R2.  R3.  T1 .  T3 

1. FLAG1, F(T3),  CHTC(T3,  R3>,  US,  UN, OR,  Q(BR > 

1182  FORMAT  ('  RUG,  ROG.  ROBL ',  IP,  3G15.  7,  / 

1, '  Rl,  R2,  R3',  3G15.  7,  / 

2, '  T1,T3',2G15.  7,  OP,  / 

3,  '  FLAG1.  F(T3> ,  CHTC  (T3,  R3)  ',  17,  1P.2G15.  7.  / 

4, '  US,  UN',  2G15.  7,  / 

5, '  QR, G(BR )  ',  2G15.  7) 


Q ( BR ) *Q ( BR)+(QR*SAM(BR> /FLOAT (NN)  >  !  WATTS 

NOTE:  MULTIPLYING  NODAL  HEAT  FLUX  'GR '  BY 

REGIONAL  SURFACE  AREA  'SAM(BR)'  DIVIDED  BY  THE 

NUMBER  OF  NODES  'FLOAT (NN)'  FORCES  THE  EXTRA  AREA 

CONTRIBUTED  BY  A  CYLINDER  BOTTOM  AND 

A  CYLINDER  TOP,  REGIONS  6  AND  7 

RESPECTIVILY,  TO  BE  INCLUDED  IN  THE 

LATTER AL  SURFACE  AREA.  THIS  IS 

CONSISTANT  WITH  THE  AREA  ASSUMED 

FOR  HEAT  LOSS  IN  THE  DEVELOPMENT 

OF  THE  OHTC. 


119  IF  (NN.  EG.  1)  GO  TO  126 

WRITE  (LO,  125)  (PRT(L) ,  L-l,  PV) ,  J,  U,  J,  QR 

125  FORMAT  (<PV>A1,  'PREDICTED  OHTC  FOR  NODE  ' 

1,  14.  T47,  F10.  2,  '  W/M**2*C',/ 

2,  '  PREDICTED  HEAT  FLUX  FOR  NODE  ' 

3,  14,  T49,  F10.  2,  '  W/M**2',//> 

126  IF  (BR.  EQ.  1.  OR.  BR.  EQ.  9.  OR.  (BR.  EQ.  4.  AND.  ATT.  EQ.  0)  ) 

1  00  TO  142 

13  CONTINUE 

142  Q(BR)-G(BR)/SAM(BR>  !W/M**2 

U-US/UN 

WRITE  (LO,  144)  (PRT(L ) ,  L-l ,  PV) ,  BR,  U,  BR,  Q(BR ) ,  BR,  GALL( BR > 
144  FORMAT  (<PV>A1,  'PREDICTED  OHTC  FOR  REGION  Ml,  ':  ',T47 

1,  F10.  2,  '  W/M**2*C  ',  / 

2,  '  PREDICTED  UNIT  HEAT  FLUX  FOR  REGION  ',11 

3,  ':  ',  T49,  F10.  2,  '  W/M**2',/,  '  ALLOWABLE  UNIT  HEAT  FLUX  ' 

4,  'FOR  REGION  Ml,  ':  ',T49,  F10.  2,  '  W/M**2'> 


QA  ( BR ) -GALL < BR ) *SAM <  BR  > 

QP  <  BR ) «Q  <  BR ) *SAM  <  BR ) 

QSUPP ( BR ) -QP ( BR ) -QA ( BR ) 

QSUP-G ( BR ) -QALL  <  BR ) 

WRITE  (LO.  131)  GSUP, BR, QP (BR  ) » BR« QA( BR ) .  QSUPP (BR ) 

131  FORMAT  ('  REQUIRED  SUPPLEMENTARY  HEAT  FLUX:  ',T49,  FIO.  2 

1,  '  W/M**2  '»  / 

2,  '  PREDICTED  RATE  OF  HEAT  LOSS  FOR  REGION  Ml,  ' 

3,  T50,  FIO.  2,  '  WATTS',/.  '  ALLOWABLE  RATE  OF  HEAT  LOSS  ' 

4,  'FOR  REGION  ',  1 1,  ':  ',  T50,  FIO.  2,  '  WATTS',/ 

5,  '  REQUIRED  SUPPLEMENTARY  HEATING:  T50, FIO.  2 


6, '  WATTS ' ) 

IF  (QCOMP.NE.  'Y')  GO  TO 

148 

P(I,  3)»T1 

P(I,  5>-Q(BR) 

! WATTS/M2 

P(I,  71-US/UN 

! WATTS/M2*C 

P(I, 8 ) “TDMS 

! T  DES.  MEAN  SKIN 

P(I. 9)-TA 

! T  AMBIENT 

TEXPT-O.  0 

UEXPT-O.  0 

QEXPT=0.  0 

SW0TT=0.  0 

SWCTQ-O.  0 

SWGTU=0.  0 

DO  1437  L-1.2 

M*COR(BR,  L) 

IF  <M.  EQ. -1)  GO  TO  1437 

C  DROP  VALUE  &  WEIGHT  FROM  SUM  IF  'T'  VALUE  O  0.0 
IF  <EXP(M+13>.  LE.  0.  0)  GO  TO  1435 
TEXPT-TEXPT+l WGT  <M)*EXP (M+13) ) 

SWGTT-SWGTT+WGT < M ) 

C  DROP  VALUE  &  WEIGHT  FROM  SUM  IF  'Q'  VALUE  O  0.0 

1435  IF  (EXP1M+1  ).  LE.  0.  0)  GO  TO  1436 

QEXPT-QEXPT+EXP(M+1 )  !  WATTS 

SWGTQ-SWGTQ+WGT  <  M  > 

C  DROP  VALUE  &  WEIGHT  FROM  SUM  IF  'Q'  VALUE  O  0.0 

1436  IF  CEXP(M+1).  LE.  0.  0.  OR.  EXP<M+13).  LE.  0.  0)  GO  TO  1437 
UEXP T-UEXPT+  <  EXP  <  M+ 1 ) / ( EXP ( M+13 ) -TA ) ) 
SWCTU»SWGTU+WGT ( M ) 

1437  CONTINUE 

IF  (SWOTT.  EQ.  0.  0>  GO  TO  1438 

TEXPT-TEXPT/SWOTT 

1438  IF  <SWGTQ.  LE.  0.  0)  GO  TO  1439 
QEXPT-QEXPT/(TAR*SWGTQ>  !W/M2 

1439  IF  (SWGTU.  EQ.  0.  0)  GO  TO  1440 

UEXPT*UEXPT / <SWGTU*TAR > 

1440  P  < 1 , 2 ) “TEXPT 
P<I, 4>-QEXPT 
P(I, 6>«UEXPT 


M«2 

PU<1)*',  ' 

PU<2>«'»  ' 

IF  ( COR < BR,  2).  EQ.  -1)  M-l 
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IF  <M.  EQ.  1  >  PU(l)-'i  ' 

WRITE  (LO,  1441 >  (COR (BR, L) , PU(L > ,  L»1 ,  M> ,  BR,  TEXPT 

1.  (COR (BR, L),  PU(L>,  L-l.  M>,  BR,  UEXPT 

2,  (COR  (BR,  L>,  PU(L),  L-l,  M),  BR,  QEXPT 

1441  FORMAT  ('  WOT  "ED  EXP  "T  TEMP,  SITE(S)  ' 

1,  <MXI2,  Al>,  '  REGION  '.II,  ,:/,T54 

2,  FIO.  2,  '  C  ',  / 

3,  '  WGT"ED  EXP"T  OHTC,  SITE(S)  ' 

4,  <M> ( 12,  A1 ) ,  '  REGION  ',I1,':',T47 

5,  FIO.  2,  '  W/M**2*C  ',  / 

6,  '  WGT"ED  EXP"T  HEAT  FLUX,  SITE(S)  ' 

7,  <MXI2,  Al>,  '  REGION  Ml,  ':',T49 

8,  FIO.  2,  '  W/M**2  '  > 

148  WRITE  (LO,  149)  (IB.M-1,32) 

149  FORMAT  ('  ',32A2> 

IF  (GCOMP.NE.  'Y ' )  GO  TO  360 

150  CONTINUE 

IF  (ITOT.  EQ. -1.  AND.  BR.  GT.  1)  GO  TO  152 
PRT ( 1 )  * '  ( ' 

LCL-2 

IF  (REU. EQ. 'S')  GO  TO  1501 
PRT(2)»'U' 

PRT (3) = 'N ' 

LCL-4 

1501  DO  1502  M»2, 10 
PRT ( LCL ) =PRTL ( M ) 

1502  LCL-LCL+1 
PRT(LCL)-') ' 

WRITE  (5,  151) 

151  FORMAT  ( '*D0  YOU  WISH  TO  PLOT  T"S.  Q"S,  AND  U"S?  ' 

1, '(Y/N)  ') 

READ  (5,32)  PLD 

IF  (PLD.  NE.  'Y'>  GO  TO  249 

1510  LABEL ( 1 > » 'T  C  ' 

LABEL ( 2 )  ** ' Q  W/M2' 

LABEL (3) -'U  W/M2*C  ' 

WRITE  (5,1511)  (LABEL (M) ,  ( SCALY (M,  N> , N*1 , 3) , M*l, 3 > 

1511  FORMAT  ('  ',  10X,  'Y-AXIS  SCALE  FACTORS',// 

1,  10X,  7X,  'LY',  10X,  7X,  'SY',  10X,  7X,  'IY',  / 

2,  3(1X,  A8.  IX,  3 (FIO.  2,  9X),  />,  / 

3,  '4SELECT:  ( 1=T, 2-Q,  3-U, X*NO  MORE  CHANGES)  ') 

READ  (5,32)  IT 

IF  (IT.  EQ.  'X')  GO  TO  1517 
DECODE  (1,1514, IT)  L 

1514  FORMAT  (ID 

IF  (L.  LE.  0.  OR.  L.  GE.  4)  GO  TO  1517 
WRITE  (5, 1515)  LABEL (L) 

1515  FORMAT  ( '4ENTER ' , AS,  '  LY, SY,  IY  SEPARATED  BY  COMMAS:  ' 
1'  CF3  ') 

READ  (5,1516)  ( SCALY ( L,  M ) ,  M® 1 ,  3  > 

1516  FORMAT  (3F10.  3) 

GO  TO  1510 

WRITE  (5,  1518)  LX,  SX,  IX 


1517 
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1518  FORMAT  ('  ',  10X,  'X-AXIS  (TIME)  SCALE  FACTORS'.  // 

1.  10X.  7X.  'LX'.  10X,  7X,  'SX',  10X.  7X,  'IX'.  / 

2.  <1X.  'T,  Q,  U  MIN'.  3(F10.  2.  9X),  /),  / 

3.  '^CHANGE  X-AXIS?  (Y/N)  ') 

READ  (5,32)  IT 

IF  (IT.  NE.  'Y')  GO  TO  152 
WRITE  (5,1519) 

1519  FORMAT  ( '*ENTER  LX,  SX,  IX  SEPARATED  BY  COMMAS:  CF3  ') 
READ  (5,  1516)  LX.  SX,  IX 

GO  TO  1517 

152  IF  (PLD. NE. 'Y')  GO  TO  249 

DO  200  K-l,  3 

CALL  NEWDEV  (,  'DRO: COMPAR.  VEC ',14) 

CALL  PLOTST  (4,  'IN', 1 ) 

CALL  PLOT  <1.  0,  1.  0,-3) 

CALL  AXIS  (0.  0,  0.  0,  'TIME  (MIN) ', -10.  LX.  0.  0,  SX,  IX ) 

GO  TO  (190,  170,  180)  K 

190  LY=SCALY(K, 1) 

SY— SCALY ( K,  2) 

IY-SCALY(K,  3) 

LYS-LY 

CALL  AXIS  (0.  0,  0.  0,  'TEMPERATURE  (C  ) ', +15,  LY,  90.  0,  SY,  IY) 
LABEL ( 1 )  = 'T-EXPT  ' 

LABEL ( 2 )  = 'T-PRED  ' 

OPEN  (UNIT-6,  NAME- 'DR:  COMPAR.  OUT ' ) 

WRITE  (6,191)  BREG(BR),  LY,  SY,  IY 

191  FORMAT  ('  ',  7X,  1 A8,  /,  '  ',  7X,  'LY:  ',  F7.  2,  5X,  'SY.  ' 

1,  F7.  2,  5X,  'IY:  ' 

2,  F7.  2,  /,  '  ' ,  7X,  '*  INDICATES  POINT  NOT  PLOTTED;  ' 

3,  '  ITS  VALUE  IS  <=  0  OR  <  SY',/ 

4,  12X,  '  TIME  ',  12X,  '  T-EXPT  ',  10X 

5, '  T-PRED  ',/) 

CALL  PL0TD(1, SYM, BR) 

CALL  PLOTND 

CLOSE  (UNIT-6) 

GO  TO  200 

170  LY-SCALY  <  K,  1 ) 

SY— SCALY (K, 2) 

I Y-SCALY (K, 3) 

LYS-LY 

CALL  AXIS  <0.  0,  0.  0,  'HEAT  FLUX  (W/M2)  ',+19,  LY 

1, 90.  0,  SY,  IY) 

LABEL( 1 ) = 'Q-EXPT  ' 

LABEL ( 2 ) - 'Q-PRED  ' 

OPEN  (UNIT-6,  NAME- 'DR: COMPAR.  OUT ' ) 

WRITE  (6,171)  BREG(BR),  (PRT(M), M-l, LCL), LY,  SY,  IY 

171  FORMAT  ('  '.  7X,  IA8,  <LCL>A1, /,  '  ',  7X.  'LY:  ',  F7.  2.  5X,  'SY:  ' 

1,  F7.  2,  5X,  'IY:  ' 

2, F7.2,  /,  '  ',  7X,  '*  INDICATES  POINT  NOT  PLOTTED;  ' 

3,  '  ITS  VALUE  IS  O  0  OR  <  SY',  / 

4,  12X,  '  TIME  ',  12X,  '  Q-EXPT  '-10X 

5, '  Q-PRED  ',/) 

CALL  PL0TD(3, SYM, BR) 


CALL  PLOTND 
CLOSE  (UNIT-6) 

GO  TO  200 

ISO  LY-SCALY(K, 1) 

SY=SCALY(K, 2) 

IY»SCALY(K,  3) 

LYS=LY 

CALL  AXIS  <0.  0,  0.  0,  'OHTC  < W/M2*C  >  ' ,  +13,  LY.  90.  0,  SY,  I Y ) 
•LABEL  (1>='U-EXPT  ' 

LABEL  <2  > “ 'U-PRED  ' 

OPEN  (UNIT=6,  NAME* 'DR: COMPAR.  OUT') 

WRITE  (6,  181 >  BREG(BR),  (PRT(M), M=l, LCL), LY, SY,  IY 
181  FORMAT  ('  7X,  1A8,  <LCL>A1,  /,  '  ',  7X»  'LY:  ',  F7.  2,  5X»  'SY 

1/  F7.  2,  5X<  '  IY:  ' 

2,  F7.2,  /,  '  ' ,  7X,  '*  INDICATES  POINT  NOT  PLOTTED;  ' 

3/  '  ITS  VALUE  IS  O  0  OR  <  SY',  / 

4»  12X<  '  TIMEM4X,  '  U-EXPT  10X 
5.  '  U-PRED  ' ,  /  ) 

CALL  PLOTD ( 5«  SYM<  BR  > 

CALL  PLOTND 
CLOSE  (UNIT=6> 

200  CONTINUE 

249  IF  ( ITOT.  EG.  -1.  AND.  BR.  GT.  1  >  GO  TO  320 

WRITE  (5,300) 

300  FORMAT  (  '*D0  YOU  WISH  TO  PLOT  NORMALIZED  T"S  AND' 

1,  '  BIOT  #"S  ?  < Y/N)  ') 

READ  (5,32)  PLN 

IF  (PLN. NE. 'Y')  GO  TO  360 

310  LABEL ( 1 >= 'TN ' 

LABEL(2)  =  'BI  ' 

WRITE  (5,311)  (LABEL(M),  (SCALYN(M,  N),  N»l,  3),  M*l,  2) 

311  FORMAT  ('  ',  10X,  'Y-AXIS  SCALE  FACTORS',/ 

1,  '  ',  8X,  'NON-DIMENSIONAL  T"S  St  U"S',// 

2,  10X,  7X,  'LY',  10X,  7X,  'SY',  10X,  7X,  'IY',  / 

3,  2(  IX,  A8,  IX,  3(F10.  2,  9X),  /),  / 

4,  '^SELECT:  ( 1*TN,  2=B I , X=NO  MORE  CHANGES >  ') 

READ  (5,32)  IT 

IF  (IT.  EG.  'X')  GO  TO  317 
DECODE  <1,314,  IT)  L 

314  FORMAT  (ID 

IF  (L.  LE.  0.  OR.  L.  GE.  4)  GO  TO  317 
WRITE  (5,315)  LABEL(L) 

315  FORMAT  (  'CENTER  ', A8,  '  LY, SY,  IY  SEPARATED  BY  COMMAS:  ' 
1,  '  CF3  ') 

READ  (5,316)  ( SCALYN <L, M > , M-l , 3 ) 

316  FORMAT  (3F10. 3> 

GO  TO  310 

317  WRITE  (5,318)  LX,  SX,  IX 

318  FORMAT  ('  ',  10X,  'X-AXIS  (TIME)  SCALE  FACTORS',// 

1,  10X,  7X,  'LX',  10X.7X,  'SX',  10X,  7X,  'IX',  / 

2,  (IX,  'TN,  BI  MIN',  3(F10.  2,  9X>,  /),  / 

3,  '*CHANGE  X-AXIS?  (Y/N)  ') 

READ  (5,32)  IT 


I 
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IF  <  IT.  NE.  '  Y '  >  CO  TO  320 
WRITE  (5,319) 

319  FORMAT  (CENTER  LX,  SX,  IX  SEPARATED  BY  COMMAS:  CR3  ') 
READ  (5,  316)  LX,  SX,  IX 

CO  TO  317 

320  IF  (PLN.  NE.  'Y')  CO  TO  360 
DO  350  K-l, 2 

CALL  NEWDEV  (,  'DRO:  COMPARN.  VEC  ',  15) 

CALL  PLOTST  (4,  'IN',  1) 

CALL  PLOT  (1.  0,  1.  0,  -3) 

CALL  AXIS  (0.  0,  0.  0,  'TIME  (MIN)  ', -10,  LX,  0.  0,  SX,  IX) 

CO  TO  (330,340)  K 

330  LY«SCALYN(K,  1 ) 

SY»SCALYN<K,  2) 

IY»SCALYN(K,  3) 

LYS-LY 

CALL  AXIS  (0.0,  0.0,  'NORMALIZED  TEMPERATURE  ',  +22,  LY 
1, 90.  0,  SY,  IY) 

.  LABEL  ( 1  )=»  'TN-EXPT  ' 

LABEL (2)='TN-PRED  ' 

OPEN  (UNIT-6,  NAME- 'DR: COMPARN.  OUT ' ) 

WRITE  (6,331)  BREC(BR),  LY,  SY,  IY 

331  FORMAT  ('  ',  7X,  1A8,  /,  '  ',  7X,  'LY:  ',  F7.  2,  5X.  'SY:  ' 

1, F7.  2,  5X,  'IY:  ' 

2,  F7.  2, /,  '  ',  7X,  '*  INDICATES  POINT  NOT  PLOTTED;  ' 

3,  '  ITS  VALUE  IS  O  0  OR  <  SY',  / 

4,  12X,  '  TIME  ',  13X,  '  TN-EXPT  ',  10X 

5,  '  TN-PRED  ',  /) 

CALL  PL0TN(1,SYM) 

CALL  PLOTND 
CLOSE  (UNIT-6) 

CO  TO  350 

I  340  LY-SCALYN(K,  1 ) 

SY«SCALYN(K,  2) 

IY=SCALYN(K,  3) 

|  LYS-LY 

CALL  AXIS  (0.  0,  0.  0,  'BIOT  NUMBER ', +1 1 ,  LY 
I  1,  90.  0,  SY,  IY) 

I  LABEL ( 1 )- 'BI-EXPT  ' 

;  LABEL ( 2 ) - ' B I-PRED  ' 

|  OPEN  (UNIT-6,  NAME- 'DR:  COMPARN.  OUT' ) 

I  WRITE  (6,341)  BREC(BR),  (PRT(M), M-l, LCL), LY, SY,  IY 

341  FORMAT  ('  ',  7X,  1A8,  <LCL>A1,  /,  '  ',  7X,  'LY:  ',  F7.  2,  5X,  'SY:  ' 

1/  F7  2/  5Xi  '  I y  7 

2,  F7.2, /,  '  ' ,  7X,  '*  INDICATES  POINT  NOT  PLOTTED;  ' 

3,  '  ITS  VALUE  IS  <-  0  OR  <  SY',/ 

4,  12X,  '  TIME  ',  13X,  '  BI-EXPT  ',’ 10X 

5,  '  BI-PRED  ',  /) 

CALL  PLOTN( 5, SYM ) 

CALL  PLOTND 

|  CLOSE  (UNIT-6) 

350  CONTINUE 

j  360  IF  (LO.  EQ.  5)  CO  TO  361 
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CLOSE  (UNIT-LO) 

361  IF  (ITOT.  EG.  0)  GO  TO  15 

14  CONTINUE 

15  CLOSE  (UNIT-2, D I SPOSE-' SAVE') 

IF  (REU. EQ. 'X')  GO  TO  362 

GO  TO  30 

C*********************************************************** 
! THIS  CALL  TO  A  SYSTEM  LEVEL  SUBROUTINE  IS 
! USED  TO  DE-ATTACH  THE  TERMINAL.  SEE 
! COMMENT  AT  TOP  OF  CODE  ABOUT  INITIAL 
ICALL  TO  'WTGIO ' 

362  CALL  WTGIO  ("2000. “5) 

C*********************************************************** 

STOP 

END 
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FUNCTION  REINIT(I) 

REAL  A(5),B(5),C<9),D(9),E(9>*F(9>,G(9>»H(9) 

COMMON  /SUIT/ A,  C 

1.  /MISC/E.  Q 

DATA  B/l.  63,  0.  1175,  2.  27,  0.  15875,  0.  17307/ 

1,  D/1.  0,  1.  0,  1.  0,  1.  0,  1.  0,2.  0,  1.  0,  1.  0,  1.  0/ 

2,  F/23.  3,  60.  0,  49.  7,  42.  4,  85.  0,  97.  0,  98.  9,  125.  25 

3,  265.  86/ 

4,  H/2.  56,  2.  56,  2.  22,  3.  45,  3.  13,  12.  50,  2.  27,  2.  17,  3.  45/ 
GO  TO  (10,  20,  30, 40 >  I 

10  DO  11  J«l, 5 
A(J)*B(J) 

11  CONTINUE 
GO  TO  100 

20  DO  21  J-l,  9 
C(J)-D(J) 

21  CONTINUE 
GO  TO  100 

30  DO  31  J-l,  9 
E(J)»F(J> 

31  CONTINUE 
GO  TO  100 

40  DO  41  U-l.  9 
G<J)«H< J> 

41  CONTINUE 

100  REINIT-I 

RETURN 

END 


I— ttlfl 


m 
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C - 

C  OHTC 


REAL  FUNCTION  OHTC(SN) 


!  THIS  FUNCTION  SYNTHESIZES  THE  PRESSURE  AND  TEMPERATURE 
'.DATA  AND  PRODUCES  A  VALUE  FOR  THE  OVERALL  HEAT  TRANSFER 
!  COEFFICIENT  IN  WATTS /SEC*C* ( M**2 )  FOR  THE  GARMENT 
!  ENSEMBLE. 

! THE  GARMENT  ASSUMED  IS  THE  NAVY'S  DIVER  THERMAL 
•  PROTECTION  ENSEMBLE 

! THE  UNDERGARMENT  IS  MODELED  AS  DESCRIBED  IN  THE  TEXT. 

!  THE  OUTER  GARMENT  IS  MODELED  AS  A  SOLID  SLAB  OF 
! NEOPRENE  OF  THICKNESS  EQUAL  TO  OUTER  GARMENT  THICKNESS. 

!  THE  HEAT  TRANSFER  COEFFICIENT  FOR  THE  OUTER  BOUNDARY 
! LAYER  IS  DETERMINED  FRON  EQUATIONS  DERIVED  FROM 
! EXPERIMENTAL  DATA.  (SEE  TEXT  FOR  DETAILS) 


VARIABLES  DEFINED  IN  MODULE  OHTC 
RDS  =  REGIONAL  DATUM  START=>  REGION  DEPTH  BELOW 
SHOULDER  REFERENCE  (RDS-O.  0  IF  LAYING 
HORTIZONTAL) 

TCAR  «  THERMAL  CONDUCTIVITY  OF  AIR  AT  REFERENCE 
TEMPERATURE  OF  21.  1  C  AND  A  DEPTH  OF 
ZERO  METERS  OF  SEA  WATER 
*  2.  611E-2  WATTS/METER  C 
CR  »  CONDUCTIVITY  RATIO=>  RATIO  OF  THERMAL 

CONDUCTIVITIES  OF  AIR  AT  0  MSW,  21. 1  C  (TCAR) 
AND  THE  SUIT  ENTRAPPED  GAS  AT  AMBIENT  DEPTH 
AND  PRESSURE. 

DPCT  *  DECIMAL  %  CHANGE  IN  THINSULATE  THICKNESS  AS  A 
FUNCTION  OF  HYDROSTATIC  PRESSURE  (DEPTH  BELOW 
SHOULDERS) 

DZ  -  NODAL  DISTANCE  INCREMENT.  DISTANCE  BETWEEN 
NODES  IN  FINITE  DIFFERENCE  SOLUTION  FOR 
EACH  REGION.  EACH  CYLINDRICAL  REGION 
IS  DEVIDED  INTO  NODES  ALLONG  IT'S 
LENGTH  ONLY.  SPHERES  ARE  TREATED  AS  HAVING 
A  SINGLE  NODE  AT  ALL  TIMES. 

DZV  ■  NODAL  DEPTH  INCREMENT.  DEPTH  CHANGE 
CAUSED  BY  EACH  NODE  WHEN  REGION  IS 
VERTICAL.  WHEN  THE  REGION  IS 
HORTIZONTAL  THE  NODES  STEP  OUTWARD 
IN  THE  HORTIZONTAL  DIRECTION. 

WHEN  THE  REGION  IS  VERTICAL  THE  NODES 
STEP  DOWNWARD  IN  THE  VERTICAL  PLANE. 

EDS  *  ELEMENT  DISTANCE  FROM  SEA  LEVEL,  ELEMENT 
IMPLIES  DIFFERENTIAL  ELEMENT  OF  FINITE 
DIFFERENCE  EQUATIONS.  IE:  DEPTH  BELOW  SEA 
LEVEL  TO  THE  ELEMENT  OF  INTEREST) 

SEP  -  START  OF  NODAL  ELEMENT  POSITION, 

DISTANCE  FROM  THE  STARTING  END  OF  THE  REGION 
TO  THE  START  OF  THE  NODAL  ELEMENT. 

SEPV  -  STARTING  DEPTH  OF  THE  NODAL  ELEMENT  FROM 
BEGINNING  DEPTH  OF  THE  REGION 
MT  -  MEAN  TEMPERATURE  BETW.  AMBIENT  AND  THE  SKIN 
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SURFACE.  ESTIMATED  TEMPERATURE  OF  THE  GAS 
ENTRAPPED  IN  THE  UNGERCARMENT. 

RDM  -  REFERENCE  DEPTH  (RD>  CONVERTED  TO  METERS  OF 
SEA  WATER.  (RD  ->  DEPTH  FROM  SEA  LEVEL  TO 
SHOULDERS) 

RED  -  REGIONAL  ELEMENT  DEPTH.  DEPTH  BELOW  SHOULDERS 
TO  MID-POINT  OF  THE  ELEMENT  OF  INTEREST. 

(NOTE:  IF  SUBJECT  LAYING  HORTIZONTAL  ( ATT -2 ) 

THEN  RED-O.  0  > 

ROBL  -  THERMAL  RESISTANCE  DUE  TO  THE  PRESENCE  OF  THE 
BOUNDARY  LAYER  ON  THE  OUTSIDE  SURFACE  OF  THE 
OUTER  GARMENT 

ROG  »  THERMAL  RESISTANCE  DUE  TO  THE  PRESENCE  OF  THE 
OUTER  GARMENT 

RUG  -  THERMAL  RESISTANCE  DUE  TO  THE  PRESENCE  OF  THE 
UNDER  GARMENT 

SRO  «  SPECIFIC  RESISTANCE  OF  UNDER  GARMENT 
AT  SEA  LEVEL  (CLO/CM) 

SRUGA  »  SPECIFIC  THERMAL  RESISTANCE  OF  THE 

UNDERGARMENT  DUE  TO  THE  ENTRAPPED  GAS  AT  THE 
AMBIENT  TEMPERATURE  AND  PRESSURE  ONLY. 

SRUGHA  -  SPECIFIC  THERMAL  RESISTANCE  OF  THE 

UNDERGARMENT  DUE  TO  BOTH  HYDROSTATIC  SQUEEZE 
AND  THE  AMBIENT  GAS  AT  DEPTH 
RUGHA  -  THERMAL  RESISTANCE  OF  THE  UNDER  GARMENT  DUE  TO 
BOTH  HYDROSTATIC  SQUEEZE  AND  THE  AMBIENT  GAS 
AT  DEPTH  (IN  UNITS  OF  CLO'S) 

RUGHA J  =  THERMAL  RESISTANCE  OF  THE  UNDER  GARMENT. 

RUGHA,  CONVERTED  FROM  CLO'S  TO  SEC*C*M2/J 
OR  C*M2/WATT 

R1  »  RADIUS  FROM  CENTER  OF  CYLINDER /SPHERE  TO  EDGE 

OF  THE  CYLINDER /SPHERE  (M) 

R2  -  RADIUS  FROM  CENTER  OF  CYLINDER /SPHERE  TO 
OUTSIDE  EDGE  OF  THE  UNDERGARMENT  (M) 

R3  -  RADIUS  FROM  CENTER  OF  CYLINDER /SPHERE  TO 
OUTSIDE  EDGE  OF  OUTER  GARMENT  (M> 

TRZ  =  THICKNESS  OF  THE  UNDERGARMENT.  WUGO,  AT  DEPTH 
THICKNESS  REDUCED  DUE  TO  HYDROSTATIC  SQUEEZE 
T3  -  TEMPERATURE  OF  THE  OUTER  SURFACE  OF  THE 
OF  THE  OUTER  GARMENT 

♦NOTE*  FLAG1, FTOL, TTOL, NTOL.  AND  REAL  FUNCTION  F  ARE  ! 
ALL  INVOLVED  IN  FINDING  THE  OUTSIDE  SURFACE 
TEMPERATURE,  T3,  OF  THE  OUTER  GARMENT  USING  THE  SECANT 
METHOD  OF  FINDING  THE  REAL  ROOTS  OF  THE  FUNCTION  F.  ] 

FLAG1  -  FLAG  INDICATING  RESULTS  OF  THE  SECANT  METHOD 

FOR  FINDING  THE  OUTSIDE  SURFACE  TEMP.  OF  THE  j 
OUTER  GARMENT 

«  -3  ->  ESTIMATE  OF  OUTSIDE  SURFACE  TEMP.  >  OR  - 

AMBIENT  TEMPERATURE 

-  -2  »>  MAX  ALLOWED  NUMBER  OF  ITERATIONS  , NTOL, 

EXCEEDED. 

-  -1  ->  VALUE  OF  FUNCTION  F  AT  NEW  TEMP. 

EQUALS  VALUE  OF  F  AT  OLD  TEMP. 


!  »  1  *>  COMPUTED  CHANGE  IN  TEMPERATURE 

!  LESS  THAN  OR  EQUAL  TO  MINIMUM  ALLOWED 

!  TEMPERATURE  SPECIFIED  ( TTOL ) . 

!  ■  2  »>  NEW  VALUE  OF  FUNCTION  F  LESS  THAN  OR 

!  EQUAL  TO  MINIMUM  ALLOWED  VALUE  »  FTOL. 

!  FTOL  -  MINIMUM  ALLOWED  VALUE  OF  THE  FUNCTION  F 

!  TTOL  *  MINIMUM  ALLOWED  VALUE  FOR  THE  TEMPERATURE  STEP 

!  AT  EACH  ITERATION 

f NTOL  *  MAXIMUM  ALLOWED  NUMBER  OF  STEPS  THE  SECANT 

!  PROCEDURE  CAN  TAKE 

!  TNI  a  NEW  ESTIMATE  OF  THE  TEMPERATURE 

! TNO  -  OLD  ESTIMATE  OF  THE  TEMPERATURE 

!DT  -  DIFFERENCE  BETW.  OLD  AND  NEW  TEMPERATURE 

!  ESTIMATES 

!B  -  ARRAY  CONTAINING  BODY  DIMENSIONS  FOR  THE  9 

!  REGION  MODEL  MAN. 

! COR  »  ARRAY  CONTAINING  THE  CORRESPONDENCE  BETWEEN 
!  THE  9  REGION  AND  12  SEGMENT  MODELS 

! WGT  -  ARRAY  CONTAINING  THE  12  SEGMENTAL  HODY 
!  SURFACE  AREA  WEIGHTS. 

!*NOTE*  THE  FOLLOWING  VARIABLES  USED  IN  THIS  MODULE 
! WERE  DEFINED  IN  MODULE  -  MAIN 

!  ATT,  BR,  COG,  DR,  FLAG2,  LO,  NN,  RD,  RDU,  SRO,  TA. 

!  TDMS,  WOG,  WUGO,  TWUGO 

!*NOTE*  THE  FOLLOWING  VARIABLES  USED  IN  THIS  MODULE 
! ARE  TEMPERARY  VARIABLE  AND  HAVE  NO  PERMINANT  MEANING 
!  I,  N 

INTEGER  ATT, BR,  SN,  FLAG2,  FLAG1 , COR 
REAL  MT 
BYTE  RDU 

COMMON  /BODY/B ( 9, 3),  COR (9,  2),  WGT (12) 

1,  /DEBUG/FLAG2,  LO 

2,  /OHTCD/RUGHA,  RUG,  ROG,  ROBL,  Ri,  R2,  R3,  Tl,  T3,  FLAG1 

3,  Q1A,  Q13 

4,  /PROB/BR,  ATT,  RD,  RDM,  TA,  NN,  TDMS,  DZ,  DZV,  FLAG3,  RDS 

5,  RDU 

6,  /SUIT/WUGO, DR,  SRO,  WOG, COG,  TWUG0(9> 


! NTOL,  FTOL, TTOL  ARE  TOLERANCE  LIMITS  USED  IN  FINDING 
!T3  BY  THE  SECANT  METHOD  SUCH  THAT  F<T3)'V»0: 

!NTOL->  MAXIMUN  NUMBER  OF  ITERATIONS  ALLOWED 
!FTOL->  ZERO  TOLERANCE.  IF  F(T3)  IS  O  FTOL 
!  THEN  F^^aO 

!TTOL->  ZERO  TOLERANCE  FOR  THE  DIFFERENCE  BETWEEN 
!  T3 ( NEW )  AND  T3C0LD). 

!  IF  < T3 ( NEW ) -T3 ( OLD ) )  O  TTOL  THEN  DIFFERENCE  IS 

!  ASSUMED  0 

DATA  NTOL,  FTOL, TT0L/300, 1.  OE-7,  1.  OE-3/ 


! TCAR  -  THERMAL  CONDUCTIVITY  OF  AIR  AT  REFERENCE 
!  CONDITIONS  OF  21.  1  C  AND  0  MSW.  <W/M*C> 

DATA  TCAR/2.  611E-2/ 
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RDS-O.  0 
RED-O.  0 
DPCT-O.  0 

IF  (ATT.  EQ.  2)  00  TO  13  I2-PR0NE 
!  ATT-0  OR  ATT-1  (SIT. STAND) 

IF  (BR. OT.  1)  00  TO  10 
RDS-B (BR.  2>*(-l.  0) 

00  TO  13 

10  IF  (BR.  EQ. 2)  00  TO  13 
N-2 

11  IF  (BR.  OE.  7.  AND.  BR.  LE.  9)  N-7 
IF  (BR.  EQ.  7)  00  TO  13 

DO  12  I-N. BR-1 

IF  (I.  EQ.  4.  AND.  ATT.  EQ.  0)  00  TO  110 
RDS— RDS+B  (1.3) 

00  TO  12 

110  RDS-RDS+(B(I,  2>/2.  0) 

12  CONTINUE 

IF  (BR.  NE.  4.  OR.  ATT.  NE.  0)  00  TO  13 

! BR-4  AND  ATT-0 

RDS— RDS- (B (BR. 2)/2.  0) 

13  IF  (BR.  NE.  1.  AND.  BR.  NE.  9)  00  TO  131 
!  BR-i  OR  BR-9 

DZ-B (BR.  2) 

SEP-O.  0 
SEPV-O.  0 
DZV— B ( BR. 2) 

IF  (ATT.  EQ.  2)  DZV-O.  0 
00  TO  14 

131  DZ-B (BR. 3) /FLOAT (NN) 

SEP«DZ*FL0AT(SN-1 > 

DZV-B ( BR. 3  > /FLOAT (NN) 

IF  (ATT.  EQ.  2)  DZV-O.  0 

IF  (ATT.  EQ.  0.  AND.  BR.  EQ.  4)  DZV»B(BR,2> 

SEPV=DZV*FL0AT(SN-1 ) 

IF  (ATT.  EQ.  2)  SEPV-O.  0 

IF  (ATT.  EQ.  0.  AND.  BR.  EQ.  4)  SEPV-O.  0 

14  RDM-RD 

IF  (RDU.  NE.  'P'>  00  TO  15 
RDM-RD/ 1.461  !  1.461  PSI/MSW 

15  IF  (RDU.  NE.  'F ' )  00  TO  16 

RDM-RD*0.  3048  ! 0.  3048  MSW/FSW 

16  IF  (ATT. EQ. 2)  00  TO  20 
RED-RDS+SEPV+DZV/2.  0 
IF  (BR. EQ.  1)  00  TO  20 

IF  (RED.  OT.  0.  1711  )  00  TO  17 
DPCT-2.  358E-2*RED*100. 0 
00  TO  20 

! DPCT->DEC IMAL  PERCENT  CHANOE  IN  THICKNESS 
!**NOTE**  THE  MULTIPLICATION  OF  RED  BY  100.0  IS  TO 
!  CONVERT  THE  UNITS  FROM  METERS  TO  CENTIMETERS 

DPCT-O. 343+ (3.  7B4E-3*RED#100.  0>- 
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1(1.  345E-5*< ( RED*100.  0)**2) ) 

ITR-ESTIMATED  REGIONAL  TEMP.  (12  POINT  MODEL  CONVERTED 
!  TO  9  POINT  MODEL) 

20  MT«(Tl+TA)/2.  0 
EDS-RDM+RED 

CR-TCAR/TC(MT, EDS)  'CONDUCTIVITY  RATIO 

21  SRUGA* ( SRO*CR  > 

SRUGHA»SRUGA* ( 1 .  0-DR«DPCT ) 

RUGHA* (SRUGHA*WUGO*TWUGO(BR) )*<1.  O-DPCT)  !CLO'S 

i 

!  •»*  NOTE  ** 

! RUGHA  IS  IN  CLO'S 

! RUGHAJ  IS  RUGHA  CONVERTED  TO  <SEC*C*M2/J)=<C*M2/WATT> 

i 

RUGHAJ»RUGHA*0.  15477  !0.  15477  M2*C /WATT/CLO 

IF  (FLAG2.  EG.  0)  GO  TO  30 

WRITE  (LQ>  22)  DZ,  DZV,  SEP,  SEPV, RDM,  RED, DPCT 
1, Tl, MT, EDS, TCAR, TC (MT ,  EDS),  CR 
2, SRUGA, SRUGHA,  RUGHA,  RUGHAJ 

22  FORMAT  (  '  DZ,  DZV',  IP,  2G15.  7,  / 

1.  '  SEP,  SEPV',  2G15.  7,  / 

2.  '  RDM,  RED,  DPCT ' .  3G1 5.  7,  / 

3. '  T 1 ,  MT,  EDS  ' «  3C 1 5.  7,  / 

4. '  TCAR,  TC<MT,  EDS) ',  2G15.  7, /,  '  CR',G15.  7 

5.  '  SRUGA.  SRUGHA  ' ,  2GI 5.  7,  / 

6.  '  RUGHA',  G1 5.  7,  'CLO  RUGHAJ ',  Cl  5.  7 

7.  'M2*C/WATT ' ) 

30  R1»B<BR,  2)/2.  0  !M 

TR2*(WUG0*TWUG0(BR)*<1.  O-DPCT )) /100.  0  !M 
R2«R1+TR2  ! M 

R3*R2+(W0C/100.  0)  !M 

RUG»R 1 *RUGHAJ*LOG ( R2/R 1 ) /TR2  ! M2*C /WATT 

ROG-R 1 *LOG ( R3/R2 ) /COG  ! M2*C /WATT 

*  #**#*#***#**■*********#*****#*##*•»*******#•»*•»**•»******•» 
!  USING  SECANT  METHOD  TO  FIND  TEMPERATURE  OF  OUTSIDE 
!  SURFACE  OF  OUTER  GARMENT  (T3). 

!  ASSUME  (Tl+TA ) /2.  0  O  T3  <-  TA 
• ****************************************************** 
j 

•  #*#*#****##*#****##****#****#***###•**##**■*##*#*##*#*# 

!  TA+(TA*0. 01)  USED  AS  INITIAL  END  POINT,  TO  AVOID 
!  DETERMINATION  OF  'GRPR '  PRODUCT  WHEN  THE  WALL 
!  TEMPERATURE  -  AMBIENT  TEMPERATURE 
TN0-TA+<TA*0.  01 ) 

! *****#******#*#***#*#***##*#***##*##******#********** 
TNl»(Tl+TA>/2. 0 
IF  (TN1.LE.  TA)  GO  TO  430 
N-l 

DT-TN1-TN0 
40  N-N+l 

IF  (N.  GT.NTOL)  GO  TO  45 
FO-F(TNO) 

Fl-F(TNl) 


IF  ( FLAG3.  OT.  0.  0)  RETURN 
IF  (ABS(F1 ).  LE.  FTOL)  00  TO  41 
IF  <  (Fl-FO).  EQ.  0.  0)  00  TO  44 
DT»F1*DT/(F0-F1) 

TN0-TN1 

TN1-TN1+DT 

IF  (TNI.  LE.  TA)  00  TO  430 
IF  (ABS(DT).  LE.  TTOL)  00  TO  42 
00  TO  40 

FLA01-2  '.FTOL  SATISFIED 

GO  TO  43 

FLA© 1*1  ! TTOL  SATISFIED 

T3-TN1 

IF  (T3.  OE.  TA)  00  TO  431 
FLAG  1—3 
00  TO  46 

ROBL*R 1 / ( R3*CHTC ( T3,  R3 )  > 

OHTOl.  0/  ( RUQ+ROG+ROBL  > 

00  TO  46 

FLAG  1  —  1  !  F(TN1  >— F  (TNO)  <  0 

00  TO  46 

FLAG  1—2  !  NTOL  EXCEEDED 

IF  (FLA02.  EQ.  0)  00  TO  47 

TMP-F(TNl) 

WRITE  (LO, 461)  T3«  DT»  TNI#  TMP»  Q1A.  Q13 
FORMAT  ('  T3,  DT,  TNI  IP,  3015.  7,  / 

1*  '  F (TNI )»  Q1A>  Q13  '#  3G15.  7) 

RETURN 


O  O  o  O  OO 
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REAL  FUNCTION  F(T) 


F(T)  VARIABLES  DEFINE  IN  MODULE  F(T) 

! THIS  MODULE  IS  A  FUNCTION  SUBROUTINE  DEFINING 
! THE  FUNCTION  TO  BE  SOLVED  SUCH  THAT  FtTJ^-O. 

! THE  FUNCTION  RELATES  THE  HEAT  LOSS  THRU  THE 
■COMPLETE  ENSEMBLE  TO  THAT  THRU  THE  UNDER  GARMENT 
'AND  THE  OUTER  GARMENT.  THE  UNKNOWN  IN  THIS 
! EQUATION  IS  THE  TEMPERATURE  AT  THE  OUTSIDE 
! SURFACE  OF  THE  OUTER  GARMENT. 

'.THE  VALUE  OF  TO  PASSED  AS  T  IS  SUBSTITUTED  INTO  THE 
! EQUATION  FOR  F(T)  AND  THE  CALCULATED  VALUE  IS 
! PASSED  BACK  FOR  USE  IN  THE  SECANT  METHOD  OF  ESTIMATING 
»T3 


VARIABLES  NEEDED  FOR  CALCULATION  OF  F(T) 

! C  ®  FUNCTION  SUBROUTINE  FOR  CALCULATING  THE 

!  COEFFICIENT  OF  HEAT  TRANSFER  THRU  THE  FREE 

!  CONVECTION  BOUNDARY  LAYER 

'.  IBR  »  BODY  REGION  OF  INTEREST,  3R.  PASSED  TO  THE 
•  SUBROUTINE 

! ROG  »  THERMAL  RESISTANCE  OF  OUTER  GARMENT 

'RUG  »  THERMAL  RESISTANCE  OF  UNDER  GARMENT 

! T  a  ARGUMENT  PASSED  TO  FUNCTION,  ESTIMATE 

!  OF  T3  TEMPERATURE  OF  OUTSIDE  SURFACE  OF 

!  THE  OUTER  GARMENT 

! TA  a  TEMPERATURE  -  AMBIENT 

!T1  «  TEMPERATURE  OF  THE  CYLINDER /SPHERE  SURFACE 

JT3  a  TEMPERATURE  OF  THE  OUTSIDE  SURFACE  OF  THE 

!  OUTER  GARMENT 

! R 1  «  RADIUS  TO  REGION  SURFACE/ INNER  GARMENT 

!  INTERFACE 

!R3  a  RADIUS  TO  OUTER  GARMENT/FLUID  BOUNDARY  LAYER 

!  INFERFACE 


♦NOTE*  THE  FOLOWING  VARIABLE  ARE  DEFINED  IN  PREVIOUS  MODULES 
!  DZ,  DZV,  FLAG  1 ,  I  ATT,  NN,  RD,  RDU,  RUGHA,  Rl,  R2,  R3,  TDMS 

C - 

BYTE  RDU 
INTEGER  FLAG1 

COMMON  /OHTCD/RUGHA,  RUG,  ROG,  ROBL,  Rl,  R2,  R3,  Tl,  T3,  FLAG1 

1,  Q1  A,  Q13 

2,  /PROB/IBR,  I  ATT,  RD,  RDM,  TA,  NN,  TDMS,  DZ,  DZV,  FLAG3,  RDS 

3,  RDU 

HC»CHTC<T,  R3) 

IF  <FLAG3.  GT.  0.  0)  RETURN 

Q1A« ( Tl-TA) / (RUQ+ROG+<  Rl / (R3^HC  > ) > 

Q 1 3»  <  T 1 -T  > / <  RUG+ROG ) 

F-Q1A-Q13 

RETURN 

END 


o  n 
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REAL  FUNCTION  CHTC(T3,  R3) 

C - 

! THIS  FUNCTION  COMPUTES  THE  CONVECTIVE  HEAT  TRANSFER 
! COEFFICIENT  FOR  THE  OUTER  BOUNDARY  LAYER  IN 
! WATTS/SEC *C* < M**2 > .  THE  EQUATIONS  USED  WERE 

! DERIVED  FROM  EXPERIMENTAL  DATA.  < SEE  TEXT  FOR  DETAILS) 

C - - 

INTEGER  BR,  COR,  ATT,  FLAG2,  LO 
REAL  LNU, LGRPR 
BYTE  RDU 

COMMON  /BODY/B ( 9, 3), COR (9, 2), WGT< 12) 

1/PROB/BR,  ATT,  RD,  RDM,  TA,  NN,  TDMS,  DZ,  DZV,  FLAG3,  RDS 

2,  RDU 

3,  /DEBUG/FLAG2,  LO 

C - 

!**  NOTE  ** 

!  ALL  REFERENCES  TO  LOG  IMPLY  LOG  BASE  10  <L0G10> 


COEFFICIENTS  FOR  DETERMINATION  OF  THE  GRASHQF  AND 
! PRANDTL  NUMBER  PRODUCT. 

! USING: 

!  GRPR  *  ( ALPHA > * ( T  WALL  -  T  AMBIENT >*(L**3) 

'.WHERE: 

!  LOG  (ALPHA)  *  BETA1*(L0G  (T  FILM) )**BETA2 

!  ALPHA  -  G*BETA*RH0**2*CP/MU*K 

!  T  FILM  ■  <T  WALL  +  T  AMBIENT)  /  2.  0 

!  GRPR  =  GRASHQF#  *  PRANDTL# 

! THE  COEFFICIENTS  WERE  FOUND  BY  FITTING  THE  EQUATION  TO 
! EXPERIMENTAL  DATA,  SEE  TEXT  FOR  DETAILS. 


C  COEFFICIENTS  FOR  DETERMINATION  OF  THE  THERMAL 

! CONDUCTIVITY  OF  WATER  AS  A  FUNCTION  OF  TEMPERATURE  IN 
'.DEGREES  C. 

! THE  COEFFICIENTS  WERE  FOUND  BY  FITTING  THE  EQUATION  TO 
! EXPERIMENTAL  DATA,  SEE  TEXT  FOR  DETAILS. 

! K  -  CFO  +  CF1*T 

DATA  BETA1, BETA2/9.  80714,  0.  12733/ 

1,  CFO,  CF1/0.  56662,  1.  7977E-3/ 

C - 

! COEFFICIENTS  FOR  DETERMINATION  OF  LOG  (NU)  AS  A 
! FUNCTION  OF  LOG  (GRPR)  FOR  VERTICAL  CYLINDERS 
! LOG ( NU )  *  VCO  +  VC 1 * ( LOG ( GRPR ) )  +  VC2*  < ( LOG ( GRPR ) ) **2 ) 
! THE  COEFFICIENTS  WERE  FOUND  BY  FITTING  THE  EQUATION  TO 
! EXPERIMENTAL  DATA,  SEE  TEXT  FOR  DETAILS. 

i 


C  COEFFICIENTS  FOR  DETERMINATION  OF  LOG  (NU)  AS  A 

'.FUNCTION  OF  LOG  (GRPR)  FOR  SPHERES 
'.  LOG  ( NU )  =  SO*LOG(ORPR)  +  SI 

! THE  COEFFICIENTS  WERE  FOUND  BY  FITTING  THE  EQUATION  TO 
! EXPERIMENTAL  DATA,  SEE  TEXT  FOR  DETAILS. 
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C  COEFFICIENTS  FOR  DETERMINATION  OF  LOG  (NU>  AS  A 

! FUNCTION  OF  LOG  (GRPR )  FOR  HORIZONTAL  CYLINDERS 
! LOG ( NU  >  -  HCO*LOG ( GRPR )  +  HC1 

! THE  COEFFICIENTS  WERE  FOUND  BY  FITTING  THE  EQUATION  TO 
! EXPERIMENTAL  DATA,  SEE  TEXT  FOR  DETAILS. 

DATA  VCO,  VC1,  VC2/9.  1934,  -2.  4128,  0.  1817/ 

1,  SO,  Sl/O.  46486,  -1.  9726/ 

2,  HCO,  HC1/0.  2486,  -0.  4483/ 


CHTC 


VARIABLES  DEFINED  IN  MODULE  CHTC 
ALPHA  =  G*BETA*RH0**2*CP/MU*K 

BETA  »  LOG  (ALPHA) 

BETA1  =  COEFFICIENT  SEE  ABOVE 

BETA2  =  COEFFICIENT  SEE  ABOVE 

CF  =  THERMAL  CONDUCTIVITY  OF  WATER  AT  TEMPERATURE 

CFO  *  COEFFICIENT  SEE  ABOVE 

CF1  =  COEFFICIENT  SEE  ABOVE 

CL  CHARACTERISTIC  LENGTH  FOR  FREE  CONVECTION 

FOR  VERTICAL  CYLINDERS  *  LENGTH  OF  CYLINDER 
FOR  HORTIZONTAL  CYLINDERS  =  DIAMETER  OF 
CYLINDER 

FOR  SPHERES  =  DIAMETER 

GR  *  GRASHOF  NUMBER,  PRANDTL  NUMBER  PRODUCT 

HCO  =  COEFFICIENT  SEE  ABOVE 

HC1  =  COEFFICIENT  SEE  ABOVE 

LGRPR  =  LOG  (GRPR) 

LNU  =  LOG  (NU) 

NU  =  NUSSELT  NUMBER 

50  *  COEFFICIENT  SEE  ABOVE 

51  =  COEFFICIENT  SEE  ABOVE 

TF  =  TEMPERATURE  OF  FILM 

*  (T  SURFACE  +  T  AMBIENT  GAS)/2. 0 
VCO  =  COEFFICIENT  SEE  ABOVE 

VC1  *=  COEFFICIENT  SEE  ABOVE 

VC 2  =  COEFFICIENT  SEE  ABOVE 

B  =  ARRAY  CONTAINING  BODY  REGION  DIMENSIONS 

FLAG3  =  INTEGER  VARIABLE  USED  TO  INDICATE  SUCCESS  OR 
FAILURE  OF  THIS  SUBROUTINE. 

■  0. 0  CHTC  DETERMINED  SUCCESSFULLY 
-1.0  CHTC  NOT  DETERMINED,  ESTIMATED  FILM 
TEMPERATURE  LESS  THAN  1. 0 
-  2. 0  CHTC  NOT  DETERMINED,  GRASHOF*PRANDTL 
PRODUCT  IS  EQUAL  TO  ZERO. 


C - 

C  *NOTE*  THE  FOLLOWING  VARIABLES  WERE  DEFINED  IN  PREVIOUS 
! MODULES: 

!  BR,  TA,  T3 


C - 

C  *NQTE*  ARRAYS  COR  AND  WGT  ARE  PASSED  TO  THIS  MODULE  IN 
! LABELED  COMMON  BUT  ARE  NOT  USED  IN  THIS  MODULE. 

C - 

FLAG3-0. 0 
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GO  TO  (1,2)  ATT 
C  ATT=0  SITTING 

GO  TO  (11,  10,  10,  12,  10,  10,  10,  10.  11)  BR 

C  ATT-1  STANDING 

1  GO  TO  (11,10,10,10,10,10,10,10,11)  BR 

C  ATT=2  PRONE 

2  GO  TO  (11,12,12,12,12,12,12,12.11)  BR 

C  VERTICAL  CYLINDERS 

10  CL«*B(BR.3>  !  M 

ASSIGN  105  TO  LRET 

GO  TO  20 

105  LNU=VC0+(VC1*LGRPR)+(VC2*(LGRPR**2. 0) > 

GO  TO  15 
C  SPHERE 

11  CL«2.  0*R3  f  M 

ASSIGN  115  TO  LRET 

GO  TO  20 

115  LNU»(S0*LGRPR)+S1 

GO  TO  15 

C  HORTIZONTAL  CYLINDER 

12  CL»2. 0*R3  ! M 

ASSIGN  125  TO  LRET 

GO  TO  20 

125  LNU=(HC0*LGRPR)+HC1 

15  CF=»CF0+(CF1*TF)  !W/M*C 

CHTC=( 10.  0**LNU)*CF/CL  ! W/M2*C 

RETURN 

20  TF=(T3+TA)/2.  0 

IF  (TF.  LT.  1.  0)  GO  TO  21 
BETA=BETA 1 * ( LOG 1 0 ( TF ) **BETA2 ) 

ALPHA=< 10.  0**BETA> 

GRPR=ALPHA*(CL**3.  0)*(T3-TA> 

IF  (GRPR.  LE.  0.  0)  GO  TO  23 
LGRPR=L0G10(GRPR ) 

GO  TO  LRET 

21  WRITE  (LO, 22) 

IF  (LO.  NE.  5)  WRITE  (5,22) 

22  FORMAT  ('  SYSTEM  WILL  NOT  EXPONENTIATE  A  NEGATIVE  ',  / 
1,  '  BASE  BY  A  REAL  EXPONENT',/ 

2, 20X, 'RUN  TERMINATED  ! ' ) 

FLAG3-1.  0 
RETURN 

23  WRITE  (LO, 24) 

IF  (LO.  NE.  5)  WRITE  (5,  24) 

24  FORMAT  ('  THE  LOGARITHM  OF  ZERO  ' 

1,  'IS  UNDEFINED',  / 

2, 20X, '  RUN  TERMINATED  !') 

FLAG3=2.  0 

25  RETURN 
END 
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REAL  FUNCTION  TC(TDC, Z) 


THE  FUNCTION  SUBROUTINE  TC(TDC,Z)  DETERMINES  THE  j 

THERMAL  CONDUCTIVITY  OF  AIR  OR  A  SPECIFIED  BREATHING 
GAS  MIXTURE  CORRESPONDING  TO  THE  VALUES  I 

OF  TEMPERATURE/  T  C.  AND  PRESSURE,  Z  MSW  PASSED. 

THE  AIR  VALUE  IS  DETERMINED  BY  A  METHOD  OF  TWO  j 

DIMENSIONAL  LINEAR  INTERPOLATION  ADAPTED  FROM 
CARNAHAN,  LUTHER,  AND  WILKES,  "APPLIED  NUMERICAL 
METHODS",  P  63,  PRB  1.20,  JOHN  WILEY  &  SONS,  INC.,  1969 
THE  MIXTURE  THERMAL  CONDUCTIVITY  IS  DETERMINED  BY 
CALLING  FUNCTION  TCMG.  (SEE  TCMG  FOR  DETAILS) 

ARRAY  C  -  CONTAINS  THERMAL  CONDUCTIVITY  DATA  FOR  AIR  AT 

-  PRESSURES  -  14.  7,  30.  0,  50.  0,  100.  0,  200.  0  PSIA 

-  TEMPERATURES  -  30.  0,  50.  0,  70.  0,  90.  0,  1 10.  O,  1 

130.  OF 

**NOTE** 

CONDUCTIVITIES  HAVE  UNITS  BTU/SEC  FT  F 

AND  VALUES  MUST  BE  MULTIPLIED  BY  1.  0E-06  j 

DATA  TAKEN  FROM:  1 

-  U.  S.  NAVY  DIVING  GAS  MANUAL, 

-  NAVSHIPS  0994-003-7010,  1971 

-  PAGE  T— 4  (AIR  DATA)  ! 


LAYOUT  OF  ARRAY  C 


30.  0 

50.  0 

70.  0 

90.  0 

110.  0  130.  0  F 

14.  7 

3.  93 

4.  06 

4.  19 

4.  32 

4.  45  4.  58 

30.  0 

3.  93 

4.  07 

4.  20 

4.  33 

4.  46  4.  59 

50.  0 

3.  95 

4.  08 

4.  21 

4.  34 

4.  47  4.  59 

100.  0 

3.  98 

4.  11 

4.  24 

4.  37 

4.  49  4.  62 

200.  0 

4.  03 

4.  16 

4.  29 

4.  42 

4.  54  4.  66 

Psia 


C*NOTE*  IF  THE  VALUE  OF  'C  '  RETURNED  TO  CALLING  MODULE  IS 
i NEGATIVE  THEN  THE  VALUE  OF  'T '  OR  'Z'  WAS  OUT  OF 
! RANGE  FOR  THE  TABLE  STORED  IN  ARRAY  C. 


VARIABLES  REQUIRED  AND  LOCALLY  DEFINED 
=  TEMPERATURE  OF  INTEREST  IN  DEGREES  C 
-  DEPTH  BELOW  SURFACE  IN  METERS  OF  SEAWATER 
*  COMPONENT  OF  EQUATION  FOR  TC 

(SINGLE  TERM  COMPUTED  SEPARATELY) 

=  COMPONENT  OF  EQUATION  FOR  TC 

(SINGLE  TERM  COMPUTED  SEPARATELY) 

■  LOGICAL  UNIT  NUMBER  AT  WHICH  TO  PRINT 
INFORMATION. 

=  ABSOLUTE  PRESSURE  =>  DEPTH  IN  METERS  OF 
SEAWATER,  Z,  CONVERTED  TO  PSIA 
=  TEMPERATURE  DEGREES  F  TEMPERATURE 
DEGREES  C,  TDC,  CONVERTED  TO  DEGREES  F 


NOTE:  VARIABLES  I,II,IJ  AND  J  ARE  TEMPORARY  VARIABLES 
USED  AS  DO  LOOP  INDICES  AND  COUNTERS. 


C  TC 

f  TDC 
!  Z 
!  A 

I 

!B 

i 

!L0 

I 

!  P 

I 

!T 


BYTE  10 
INTEGER  FLAG2 
REAL  C(6,  7) 

COMMON  /DEBUQ/FLAG2, LO 
2/ /TRNOSQ/YG, IG 

DATA  C/O.  0,  14.  7,  30.  0,  50.  0,  100.  0,  200.  0 

2,  30.  0,  3.  93*  3.  93,  3.  95,  3.  98,  4.  03 

3,  50.  0,  4.  06,  4.  07,  4.  08,  4.  11,  4.  16 

4,  70.  0,  4.  19,  4.  20,  4.  21,  4.  24,  4.  29 

5,  90.  0,  4.  32,  4.  33,  4.  34,  4.  37,  4.  42 

6,  110.  0,  4.  45,  4.  46,  4.  47,  4.  49,  4.  54 

7,  130.  0,  4.  58,  4.  59,  4.  59,  4.  62,  4.  66/ 

C  CONVERT  Z  METERS  OF  SEA  WATER  TO  PS I  ABSOLUTE 

P=(  (64.  15*100.  0*Z )  /  (2.  54*  ( 12.  0**3)  )  >  +  14.  7 
C  REDUCE  P  TO  1  SIGNIFICANT  DIGIT  AFTER  DECIMAL  PT 

P=( <AINT< (P+0.  Q5)*10. 0) )/10. 0) 

C  CONVERT  DEGREES  C  TO  F 

T=( ( ( TDC+273.  15)*1.  8 >-459.  67) 

IF  (IG.  NE.  'A')  GO  TO  100 
IF  (P.  LT.  C(2,  1).  OR.  T.  LT.  C(l,  2> 

1.  OR.  P.  GT.  C(6,  1).  OR.  T.  GT.  C(l,  7)  >  GO  TO  20 
DO  10  1=2,6 

IF  (C ( I,  1>.  LT.  P)  GO  TO  10 
1 1— I 

IF  (C(I,  1>.  NE.  P>  11  =  11-1 
GO  TO  12 

10  CONTINUE 
GO  TO  20 

12  DO  13  J=2, 7 

IF  (C(l,  J>.  LT.  T)  GO  TO  13 
IJ=J 

IF  (C(l,  J).  NE.  T>  IU=IU-1 
GO  TO  15 

13  CONTINUE 
GO  TO  20 

15  B=(T-C ( 1, IU>  >/(C(l,  IU+1>-C(1,  IU> ) 

IF  (T.  EQ.  C(l,  IU>  >  B=0.  0 

A=(P-C (II,  1) > / (C ( 1 1+1 ,  1 > -C ( 1 1 ,  1 >  > 

IF  (P.  EQ.  C(  II,  1>  >  A=0.  0 

TC=( ( 1.  0-A)*( 1.  0-B  > *C (II,  I J> )  +  ( A*( 1.  0-B  >*C ( 1 1  +  1,  IJ>> 
1  +  (B*( 1.  0— A ) *C ( 1 1 ,  IJ+1 > >  +  (A*B*C( II  +  l,  IU+1>> 

C  CORRECT  TC  TO  BE  IN  WATTS/M*C 

C  1.0E-6  IS  APPLIED  TO  YIELD  CORRECT  VALUES 

TC»TC*(1.  OE-6 ) *6230.  551 
C  6230. 551  J/M*C /BTU/FT *F 

C 

RETURN 
20  TC»0.  0 

WRITE (LO,  11  >  T,  P 

11  FORMAT  ('  MOX,  'T=',F10.  2,  '  OR  P-',F10.  2 
1,  '  OUT  OF  RANGE  OF  TABLE' > 

RETURN 
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TC*TCMO(T»  P ) 

RETURN 

END 


noonnonnonnonnonoooon 
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FUNCTION  TCMG(T, P) 

C  THIS  FUNCTION  CALCULATES  THE  THERMAL  CONDUCTIVITY  OF  A 
C  MIXTURE  OF  HELIUM  AND  OXYGEN  OR  NITROGEN  AND  OXYGEN 
C  BY  USING  THE  MASON-SAXENA  FORM  OF  THE  WASSILJEWA 
C  EQUATION  FOR  THE  THERMAL  CONDUCTIVITY  OF  A  BINARY  MIXTURE. 
C  THE  PURE  GAS  THERMAL  CONDUCTIVITIES  AND  VISCOSITIES 
C  NECESSARY  TO  COMPUTE  THE  MIXTURE  THERMAL  CONDUCTIVITY 
C  ARE  DEFINE  IN  THE  FUNCTION  INTERP.  THESE  TABLES  ARE 
C  TAKEN  FROM  THE  U.  S.  NAVY  GAS  MANUAL. 

C 

INTEGER  FLli  FL2,  FLAG2 
BYTE  IG, ANS 

REAL  INTERP, TP(2, 2 ) , PHI <2 ) , MW(3> , KM, NUM, DENOM 
COMMON  /DEBUG/FLAG2, LO 
2,  /TRNOSQ/YG,  IG 
DATA  MW/28.  00,  4.  00,  32.  00/ 

Y0=1.  00- YG 

IF  (IG.  EG.  'N')FL1«1 

IF  ( IG.  EG.  'H')FL1=2 

C  DETERMINE  THERM.  COND.  AND  VISCOSITY  OF  INERT 
C  GAS  COMPONENT  OF  THE  MIXTURE. 

DO  50  FL2»1,  2 

TP (1 , FL2 ) - 1 NTERP <T»  P,  FL1,  FL2) 

IF  <TP<1,  FL2).  EG.  0.  00)  GO  TO  1002 
50  CONTINUE 

C 

C  DETERMINE  THERM.  COND.  AND  VISCOSITY  OF 
C  OXYGEN  COMPONENT  OF  THE  MIXTURE. 

DO  60  FL2=1,2 

TP <2, FL2) ■ INTERP <T,  P»  3,  FL2) 

IF  (TP(2,  FL2).  EG.  O.  0)  GO  TO  1002 
60  CONTINUE 


GAS  PROPERTY  ARRAY  FOR  THE  COMPONENT  GASES  USED  TO 
COMPUTE  THE  BINARY  BREATHING  MIXTURE  THERMAL 
CONDUCTIVITY  KM: 


THERMAL 

CONDUCTIVITY 

BTU/S*FT*F 


ABSOLUTE 

VISCOSITY 

LBM/S*FT 


**#*#***#*#****###*#**##*******#**##■**#* 


* 

INERT  GAS 

TP ( l ,  1 ) 

* 

TP  ( 1 , 2) 

* 

OXYGEN 

TP (2, 1) 

* 

TP (2,  2) 

**************************************** 


MASON-SAXENA  FORM  OF  WASSILJEWA 'S  EQUATION 
IS  APPLIED  TO  THE  COMPUTATION  OF  A  BINARY 


!  C  BREATHING  GAS  MIXTURE.  THIS  TECHNIQUE 
i  C  MAY  ALSO  BE  DEVELOPED  FOR  USE  WITH  THE 
I  C  COMPUTATION  OF  THERMAL  CONDUCTIVITY  OF 
C  A  TRI-MIXTURE  OF  BREATHING  GASES. 

C 

C  FOR  A  BINARY  GAS  MIXTURE,  INDEX  1  REFERS  TO 
i  C  INERT  GAS  IN  THE  PHI  TERM  CALCULATION 
C  AND  2  REFERS  TO  OXYGEN  PROPERTY  TERMS. 

!  C  THE  TWO  PHI  TERMS  ARE  CONTAINED  IN  THE 

I  C  ARRAY  NAMED  PHI.  CALCULATE  PHI  TERMS: 

!  C 

i  C 

63  NUM“< 1.  O+SQRT < TP ( 1, 2> /TP <2,  2 >  >*( (MW(3 ) /MW(FL1 >  >**.  25) ) **2 

D£NQM»SQRT(S.  0*(1.  0+<MW<FLl > /MW<3> ) ) > 
j  PHI ( 1 ) “NUM/DENQM 

!  c 

PHI  (2)“(TP  <2,  2>/TP(i,  2)  )*<MW(FL1  )/MW(3)  >*PHI<1) 

!  C 

j  C  THE  THERMAL  CONDUCTIVITY  EXPRESSION  (KM)  OF  A  BINARY 

|  C  GAS  MIXTURE  IS  COMPRISED  OF  TWO  TERMS  WHICH  ARE 

C  DESIGNATED  AS  Cl  AND  C2.  KM  IS  DETERMINED  BY 
!  C  SUMMING  THE  TWO  TERMS  Cl  AND  C2. 

i  c 

Cl “TP ( 1, 1)/<1.  0+<l.  065*PHI ( 1 >*( YO/YC) ) ) 

C2“TP  <2,  1)/(1.  0+(l.  065*PHI (2)*( YG/YO) ) ) 

KM“C1+C2 

j  TCMG«KM*6230.  551 

j  C  THE  COMPUTED  GAS  MIXTURE  THERMAL  CONDUCTIVITY 

C  HAS  BEEN  CONVERTED  FROM  THE  UNITS  OF  BTU/S*FT*F  TO 
C  WATTS/M*C  OR  J/S*M*C.  6230,  551  J/S*M*C  ■  1  BTU/S*FT*F 
C  THE  SYMBOL  TCMG  HAS  BEEN  USED  FOR  RETURNING  THE 
C  GAS  MIXTURE  THERMAL  CONDUCTIVITY  TO  THE  REAL  FUNCTION 
|  C  SUBROUTINE  TC 

;  c 

1002  CONTINUE 
I  RETURN 

I  END 


nnonnnononnno 
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REAL  FUNCTION  INTERP <T,  P,  FL1.  FL2) 

C  THIS  FUNCTION  SUBROUTINE  INTERPOLATES  COMPONENT  GAS  DATA 
C  TABULATED  AS  A  FUNCTION  OF  TEMPERATURE  IN  DEGREES  F 
C  AND  PRESSURE  IN  PSIA.  DATA  IS  TABULATED  FROM  THE 
C  U  S.  NAVY  GAS  MANUAL. 

REAL  TCNdO, 7), TCHdO, 7 ) , TCO< 10, 7 ) , MUN< 10,  7) 

1*  MUHdO,  7),  MUOdO.  7),  MF(2>,  DAdO,  7) 

INTEGER  FL1, FL2,  FLAG2 
COMMON  /DEBUG/FLAG2, LO 
2,  /TRNOSQ/YG,  IG 

UNITS  ARE  AS  FOLLOWS: 


THERMAL  CONDUCTIVITY:  BTU/SEC*FT*F 
ABSOLUTE  VISCOSITY:  LBM/FT*SEC 

THE  RESULTS  OF  THIS  PROGRAM  SHOULD  ALSO  HANDLE  TRI-MIXTURES  OF 
NITROGEN,  HELIUM  AND  OXYGEN. 

ARRAYS  ARE  ENTERED  IN  COLUMN  MAJOR  ORDER  OF  THE  TABLES. 

DATA  TCN/O.  ,  14.  7,  30.  ,  50.  ,  100.  ,  200.  ,  300.  ,  400.  ,  500.  ,  1000. 

It  30.  0,  3.  834,  3.  84,  3.  86,  3.  89,  3.  95.  4.  01,  4.  08,  4.  14,  4.  48 

2,  50.  0,  3.  967,  3.  98,  3.  99,  4.  02,  4.  08,  4.  14,  4.  20,  4.  26,  4.  58 

3,  70.  0,  4.  100,  4.  11,  4.  12,  4.  15,  4.  21,  4.  26,  4.  32,  4.  38,  4.  68 

4,  90.  0,  4.  227,  4.  24,  4.  25,  4.  27,  4.  33.  4.  38,  4.  44,  4.  49,  4.  78 

5,  110.  0,  4.  348,  4.  36,  4.  37,  4.  39,  4.  45,  4.  50,  4.  55,  4.  60,  4.  88 

6,  130.  0,  4.  470,  4.  48,  4.  49,  4.  51,  4.  56.  4.  62,  4.  67,  4.  72,  4.  98/ 

C 

DATA  TCH/O.  ,  14.  7,  30.  ,  50.  ,  100.  ,  200.  ,  300.  ,  400.  ,  500.  ,  1000. 

1,  30.  0,  2.  26,  2.  27,  2.  27,  2.  28,  2.  29,  2.  30,  2.  31,  2.  33,  2.  39 

2,  50.  0,  3*2.  32,  2.  33,  2.  34,  2.  36,  2.  37,  2.  38,  2.  45 

3,  70.  0,  2.  38,  2.  38,  2.  38,  2.  39,  2.  40,  2.  41,  2.  43,  2.  44,  2.  50 

4,  90.  0,  2*2.  43,  2.  44,  2.  44,  2.  45,  2.  47,  2.  48,  2.  49,  2.  55 

5,  110.  0,  2.  49,  2.  49,  2.  49,  2.  50,  2.  51, 2.  52,  2.  53,  2.  55,  2.  61 

6,  130.  0,  3*2.  54,  2.  55,  2.  56,  2.  57,  2.  59,  2.  60,  2.  66/ 

C 

DATA  TCO/O.  ,  14.  7,  30.  ,  50.  ,  100.  ,  200.  ,  300.  .  400.  ,  500.  ,  1000. 

1, 30.  0,  3.  918,  3.  93,  3.  94,  3.  97,  4.  03,  4.  09,  4.  15,  4.  21,  4.  54 

2,  50.  0,  4.  068,  4.  08,  4.  09,  4.  12,  4.  17,  4.  23,  4.  29,  4.  35,  4.  66 

3,  70.  0,  4.  214,  4.  22,  4.  23,  4.  26,  4.  32,  4.  37,  4.  43,  4.  48,  4.  79 

4,  90.  0,  4.  353,  4.  36,  4.  37,  4.  40,  4.  45,  4.  50,  4.  56,  4.  61,  4.  89 

5,  110.  0,  4.  483,  4.  49,  4.  50,  4.  53,  4.  58,  4.  63,  4.  68,  4.  73,  4.  99 

6,  130.  0,  4.  611,  4.  62,  4.  63,  4.  65,  4.  70,  4.  75,  4.  80,  4.  85,  5.  10/ 

C 


o  o  n  n  o 


DATA  MUN/O.  .  14.  7,  30.  ,  50.  ,  100.  .  200.  .  300.  ,  400.  ,  500.  ,  1000. 
1/  30.  0,  1.  114/  1.  12/  1.  12/  1.  12/  1.  13.  1.  14,  1.  15,  1.  16,  1.  22 

2,  50.  0,  1.  148,  1.  15,  1.  15,  2*1.  16,  1.  17,  1.  18,  1.  19,  1.  25 

3,  70.  0,  1.  184,  3*1.  19,  1.  20,  1.  21,  1.  22,  1.  22,  1.  28 

4,  90.  0,  1.  219,  2*1.  22,  2*1.  23,  1.  24,  1.  25,  1.  26,  1.  31 

5,  110.  0,  1.  255,  3*1.  26,  1.  27,  1.  28,  1.  28,  1.  29,  1.  34 

6,  130.  0,  1. 289,  2*1.  29,  2*1.  30,  1 .  31 ,  1 .  32,  1 .  33,  1.  37/ 

C 

DATA  MUH/0.  ,  14.  7,  30.  ,  50.  ,  100.  ,  200.  ,  300.  ,  400.  ,  500.  ,  1000. 
1, 30.  0,  9*1.  257 

2,  50.  0,  9*1.  290 

3,  70.  0,  9*1.  323 

4,  90.  0,  9*1.  357 

5,  110.  0,  9*1.  389 

6,  130.  0,  9*1.  422/ 

C 

DATA  MU0/0.  ,  14.  7,  30.  ,  50.  ,  100.  ,  200.  .  300.  ,  400.  ,  500.  ,  1000. 

1,  30.  0,  1.  281,  1.  28,  1.  28,  1.  29.  1.  30.  1.  31,  1.  32,  1.  34,  1.  40 

2,  50.  0,  1.  322,  1.  32,  1.  33,  1.  33,  1.  34,  1.  35,  1.  36.  1.  37,  1.  43 

3,  70.  0,  1.  364,  3*1.  37,  1.  38,  1.  39,  1.  40.  1.  41,  1.  46 

4,  90.  0,  1.  404,  3*1.  41,  1.  42,  1.  43.  1.  44,  1.  45,  1.  50 

5,  110.  0,  1.  440,  1.  44,  1.  44,  1.  45,  1.  46,  1.  46.  1.  47,  1.  48,  1.  54 

6,  130.  0,  1.  482,  2*1.  48,  1.  49.  1.  50,  2*1.  51,  1.  52,  1.  57/ 

C 

DATA  MF/1.  E-05,  1.  E-06/ 


SYMBOL  DA  STANDS  FOR  THE  WORKING  DATA  ARRAY  INTO 
WHICH  SPECIFIC  ARRAYS  OF  DATA  ARE  TRANSFERRED  FOR  PURPOSE 
OF  INTERPOLATION. 

IF  (FL1.  EQ.  1.  AND.  FL2.  EQ.  1)  GO  TO  30 

IF  (FL1.  EQ.  1.  AND.  FL2.  EQ.  2)  GO  TO  31 

IF  (FL1.  EQ.  2.  AND.  FL2.  EQ.  1 )  GO  TO  ' 

IF  (FL1.  EQ.  2.  AND.  FL2.  EQ.  2)  GO  TO  33 

IF  (FL1.  EQ.  3.  AND.  FL2.  EQ.  1  >  GO  TO  34 

IF  (FL1.  EQ.  3.  AND.  FL2.  EQ.  2)  GO  TO  35 

30  DO  40  J-l,  7 
DO  40  1-1, 10 
DA( I, J)=TCN<I,  J> 

40  CONTINUE 
NM-1 

SF-MF<2> 

GO  TO  61 

31  DO  41  J-l, 7 
DO  41  1-1, 10 

DA <  I ,  J ) -MUN ( I , J> 

41  CONTINUE 
NM-4 
SF-MF ( 1 > 

GO  TO  61 

32  DO  42  J-l,  7 
DO  42  1-1, 10 
DA( I , J)«TCH( I,  J> 
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42  CONTINUE 
NM-2 
SF-MF<1) 

CO  TO  61 

33  DO  43  J=l,7 
DO  43  1-1, 10 
DA< 1/ J)-MUH< I, J) 

43  CONTINUE 
NM=5 
SF=MF ( 1 ) 

00  TO  61 

34  DO  44  J«l,  7 
DO  44  1-1,  10 
DA(  I  »  J)=»TCO<  I,  J) 

44  CONTINUE 
NM=3 
SF-MF<2> 

GO  TO  61 

35  DO  45  J=l,7 
DO  45  1=1, 10 

DA ( I ,  J ) =MUO ( I , J) 

45  CONTINUE 
NM»6 
SF=MF< 1 ) 

61  CONTINUE 

63  IF  <P.  LT.  DA<2,  1).  OR.  T.  LT.  DA<  1, 2) 

1.  OR.  P.  GT.  DA(10.  1).  OR.  T.  OT.  DAC1.  7)  >  GO  TO  20 
DO  10  1=2, 10 

IF  (DA(I,  1).  LT.  P>  GO  TO  10 
1 1=1 

IF  ( DA  ( 1 ,  1).  NE.  P)  1 1— 1 1  — 1 
GO  TO  12 
10  CONTINUE 

GO  TO  20 

12  DO  13  J=2,  7 

IF  (DAC1, J).  LT.  T)  GO  TO  13 
IJ«J 

IF  <DA<1,  J).  NE.  T)  IJ=IJ-1 
GO  TO  15 

13  CONTINUE 
GO  TO  20 

15  B»<T-DA(1, IJ) )/<DA<l, IJ+1)-DA(1, IJ> ) 

IF  (T.  EQ.  DA(  1,  IJ>  )  B«0.  0 
A-<P-DA(II, 1 ) )/<DA(II+l, 1 ) -DA (II, 1)) 

IF  (P.  EQ.  DA (II,  1)  )  A-0.  0 

INTERP* ( < 1 .  0— A ) * ( 1 .  0-B )*DA( 1 1,  IJ) >  + 

1 <A*( 1.  0— B )*DA< 1 1  +  1,  IJ) )  + 

2 ( B* ( 1 .  0-A  >  *DA (II,  IJ+1) )  + 

3(A*B*DA< I 1+1, IJ+1)) 

I NTERP ■ I NTERP*SF 
RETURN 
C 


C  THIS  IS  SUBROUTINE  BLOW-OUT  STATEMENT. 
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INTERP-O.  0 

WRITE  (5,  11)T,  P,  FL1,  FL2 

FORMAT ( /  ,  '  T«  F10.  2,  '  OR  P-  ',F10.  2 

1.  '  OUT  OF  RANGE  OF  DATA  ARRAY  ASSOCIATED',/ 

2,  '  WITH  FL1  Ml,  '  AND  FL2  Ml,  '  > 

RETURN 

END 


o  o 


C 


REAL  FUNCTION  TR(TDMS, BR ) 


TR 
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I 


!  THIS  FUNCTION  COMPUTES  THE  PREDICTED  REGIONAL 
!  TEMPERATURES  FOR  THE  9  REGION  MODEL. 

!  THE  PREDICTIVE  EQUATIONS  USED  WERE  DERIVED  FOR 
!  THE  12  SEGMENT  HODY  MODEL  WITH  EXPERIMENTAL 
! DATA.  (SEE  TEXT  FOR  DETAILS) 

!  THE  PREDICTIONS  FOR  THE  12  SEGMENTS  WERE 
!  COMB  I NED  BY  A  WEIGHTED  SUM  USING  THE  HODY 
! WEIGHTS  CORRESPONDING  TO  THE  SUMMED  SEGMENTS. 

‘THE  CORRESPONDENCE  BETWEEN  THE  9  REGION  AND  12  SEGMENT 
! MODELS  IS  SHOWN  IN  ARRAY  COR.  BELOW.  FOR  MORE  DETAIL 
!  SEE  MODULE  MAIN 


•ROW# 

9  REGIOM 

12  SEGMENT  MODEL 

!  =*>DR 

i 

MODEL  NAME 

CORRESPONDING  SEGMENTS  NAME(ID#> 
ID  #'S  ARE  IN  ARRAY  COR <9, 2) 

'.  i 

HEAD 

HEAD  < 1 ) .  (-1) 

!  2 

TORSO 

CHEAT (2),  UPPER  BACK(4) 

!  3 

ABDOMEN 

ABDOMEN (3).  LOWER  BACK(S) 

!  4 

THIGH 

FRONT  THIGH (8), REAR  THIGH (10) 

i  5 

CALF 

FRONT  CALF (9). REAR  CALF(ll) 

!  6 

FOOT 

FOOT (12), (-1) 

!  7 

UPPER  ARM 

ARM ( 6 ) , (-1 ) 

!  Q 

LOWER  ARM 

ARMC6), (-1 ) 

!  9 

i 

i 

HAND 

WRIST(7) , (-1) 

NOTE  (-1)  INDICATES  THAT  ONLY 

ONE  CORRESPONDING  SEGMENT  IS 

1 

AVAILABLE  FROM  12  SEGMENT  MODEL 

VARIABLE  REQUIRED  AND  LOCALLY  DEFINED 

TDMS  =  DESIGN  MEAN  SKIN  TEMPERATURE.  MEAN 
SKIN  TEMPERATURE  AT  WHICH  TO  COMPUTE 
THE  PREDICTED  REGIONAL  TEMPERATURES. 

BR  «  BODY  REGION  OF  INTEREST.  ONE  OF  THE 
9  REGION  MODEL  REGIONS. 

COR  *  ARRAY  CONTAINING  CORRESPONDENCE  BETWEEN  9 
REGION  AND  12  SEGMENT  MAPS 

SWGT  a  SUM  OF  WEIGHTS  CORRESPONDING  TO  THE  12 
SEGMENTS  SUMMED. 

PRED  -  FUNCTION  SUBROUTINE  WHICH  CALCULATES  THE 
12  SEGMENTAL  PREDICTED  TEMPERATURES  AT 
A  GIVEN  MEAN  SKIN  TEMPERATURE.  TDMS 
AND  SEGMENT  J 

WGT  ■  ARRAY  CONTAINING  THE  12  HODY  SURFACE  WEIGHTS 


NOTE:  ARRAY  B  IS  PASSED  TO  THIS  MODULE  IN  LABELED 

COMMON  BUT  THIS  ARRAY  IS  UNUSED  IN  THIS  MODULE. 


NOTE:  VARIABLES  I  AND  J  ARE  TEMPORARY  VARIABLES  USED 
AS  DO  LOOP  INDICES  AND  COUNTERS. 


NOTE:  VARIABLES  I  AND  J  ARE  TEMPORARY  VARIABLES  USED 


AS  DO  LOOP  INDICIES  AND  COUNTERS. 


INTEGER  COR. BR 

COMMON  /BODY/B ( 9, 3), COR (9, 2), WOT (12) 

TR-O.  0 
SWGT-O.  0 

! NOTE :  THERE  IS  NO  CHECKING  FOR  0.0  VALUES 
•  IN  THE  SUM  SINCE  THE  PREDICTED  VALUES 

!  CAN  NOT  BE  ZERO  UNLESS  TDMS-O. 0. 

!  TDMS  CAN  NOT  BE  ZERO  BY  ACCIDENT  IT 

!  MUST  BE  SPECIFIED  AS  ZERO  IF  THAT 

!  IS  THE  DESIRED  VALUE. 

DO  10  1-1,2 
U-CQR (BR, I) 

IF  ( J.  EG.  -1 )  GO  TO  10 
SWGT -SWGT +WGT ( J ) 

TR-TR+ ( PRED ( J, TDMS ) *WCT ( J  > ) 

CONTINUE 
TR— TR/SWGT 
RETURN 
END 


n  n 
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REAL  FUNCTION  PRED (REG.  TSKM) 

C - 

! FUNCTION  PRED  DETERMINES  THE  PREDICTED  12  SEGMENTAL 
! TEMPERATURES  FROM  EQUATIONS  DERIVED  USING 
! EXPERIMENTAL  DATA  AND  BASED  ON  A  KERSLAKE 
! TYPE  MODEL.  (SEE  TEXT  FOR  DETAILS) 


PRED  VARIABLES  REQUIRED  AND  LOCALLY  DEFINED 

! REG  «  SEGMENT  FOR  WHICH  TO  PREDICT 
!  SKIN  TEMPERATURE 

! TSKM  =  MEAN  SKIN  TEMPERATURE  TO  USE  AS 
!  INDEPENDENT  ARGUMENT  IN  THE  EQUATIONS. 

!  USUALLY  THE  DESIGN  MEAN  SKIN  TEMPERATURE. 

!KA  -  ARRAY  CONTAINING  THE  COEFFICIENTS  FOR 
!  THE  PREDICTIVE  EQUATIONS 

•KR  »  CONSTANT  USED  IN  THE  PREDICTIVE  EQUATIONS 

C - 

REAL  KA. KR 
INTEGER  REG 

COMMON  /PREDD/KA ( 12  > .  KR 
PRED-TSKM+ ( KA ( REG ) *KR ) 

RETURN 

END 


O  f> 
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SUBROUTINE  PLOTD< IR, PSYM. BR ) 

- - 

! PLQTD  IS  A  SUBROUTINE  FOR  PLOTTING  T'S.  Q'S,  AND  U'S 
! BOTH  PREDICTED  AND  EXPERIMENTAL  VERSUS  TIME. 


PLOTD  VARIABLES  REQUIRED  AND  LOCALLY  DEFINED 

!IR  =  OFFSET  INTO  ARRAY  P  AT  WHICH  TO  PICK 

!  UP  BOTH  THE  PREDICTED  AND  EXPERIMENTAL  DATA. 

!  P (ROW. IR+1 )  »  EXPERIMENTAL 

!  P (ROWi IR+2 )  =  PREDICTED 

!  PSYM  =  ARRAY  (  PSYM<2)  )  CONTAINING  THE  INTEGER 
!  NUMBERS  INDICATING  THE  SYMBOLS  TO  BE  USED  FOR 

!  THE  EXPERIMENTAL  AND  PREDICTED  CURVES 

!  RESPECTIVELY.  (SEE  DIGITAL  EQUIPMENT  CORP. 

!  MANUAL  PLXY-11M,  USER'S  GUIDE  FOR  DETAILS) 

!  BR  =  BODY  REGION  WHICH  THE  EXPERIMENTAL  AND 
I  PREDICTED  VALUE  CORRESPOND  TO. 

!LYS  =  Y-AXIS  LEVEL  FOR  LABLES.  INITIALLY  SET 
!  AT  LY 

! NREC  »  NUMBER  OF  TIME  RECORDS  TO  PLOT 
!  (IE:  I  TO  NREC) 

IDE  »  BYTE  VARIABLE  CONTAINING  EITHER 

I  OR  '  '  (SPACE).  IT  IS  USED  TO  FLAG 

!  THE  EXPERIMENTAL  DATA  POINTS  NOT 

!  PLOTED  BECAUSE  THEY  ARE  EITHER  <=  0  OR 

I  <  SY.  SY  IS  THE  STARTING  VALUE 

!  FOR  THE  Y-AXIS. 

I  DP  a  BYTE  VARIABLE  CONATAINING  EITHER  '*' 

!  OR  '  '  (SPACE).  THIS  VARIABLE  IS  USED 

I  IN  THE  SAME  MANNER  AS  VARIABLE  DE 

!  EXCEPT  THAT  DP  IS  USED  FOR  THE  PREDICTED 

I  VALUES. 

IBREG  a  ARRAY  CONTAINING  NAMES  OF  BODY  REGIONS 

I  ARRANGED  TO  CORRESPOND  TO  BR 

I  LABEL  a  ARRAY  CONTAINING  LABEL  TEXT  FOR  THE  PLOTS 

IP  a  ARRAY  CONTAINING  THE  DATA  TO  BE  PLOTTED 


NOTE:  VARIABLES  E,  F,  G, J, K  AND  L  ARE  TEMPORARY 
VARIABLES  USED  FOR  DUMMY  ARGUMENTS, 

DO  LOOP  INDICES  AND  COUNTERS. 


NOTE:  THE  FOLLOWING  VARIABLE  ARE  DEFINED  IN 

A  MANNER  NECESSARY  TO  SATISFY  THE  DEC 
PLXY-11M  SUBROUTINE'S  SPECIFICATIONS 
IX  a  X-AXIS  INCREMENT  ->  #  UNITS  PER  PLOT  UNIT 

IY  a  Y-AXIS  INCREMENT  »>  #  UNITS  PER  PLOT  UNIT 

LX  a  X-AXIS  LENGTH  IN  PLOT  UNITS 

LY  *  Y-AXIS  LENGTH  IN  PLOT  UNITS 

SX  a  X-AXIS  STARTING  VALUE 

SY  a  Y-AXIS  STARTING  VALUE 

XP  a  ARRAY  USED  TO  PASS  X-AXIS  VALUES  TO 

PLXY-11M  SUBROUTINE  LINE 
YP  a  ARRAY  USED  TO  PASS  Y-AXIS  VALUES  TO 
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PLXY-11M  SUBROUTINE  LINE 


REAL  LX,  SX,  IX,  LY,  SY,  IY,  LYS,  XP(125) ,  YP  ( 125) 

REAL*8  LABEL ( 3 ) , BREQ (1 0 ) 

INTEGER  PSYM(2) , BR 
j  BYTE  i.£,  DP,  REU,  PRT 

COMMON  /PLOT/P(  125,  9),  LX,  SX,  IX,  LY,  SY.  IY,  LYS.  LABEL,  NREC 
1,  BREG,  XP,  YP,  PD(125,  3),  LCL,  CH,  REU,  PRT(13> 

SL=3.  0 

IF  (CH.  GT.  0.  O)  SL=CH 

j  CALL  SYMBOL  (LX-SL,  LYS-O.  20,  0.  1 169,  BREGCBR  ) ,  0.  0,  +8) 

I  IF  ( IR.  EG.  1 )  GO  TO  10 

I  CALL  SYMBOL  (999.  ,  999.  ,  0.  1169,  PRT,  0.  0, +LCL) 

!  10  CALL  PLOT  (0.0,  0.0, +3) 

!  LYS»LYS-0.  20 

i  DO  13  U»l,  2 

1  L*0 

j  DO  12  K®1 , NREC 

!  IF  ( J.  GT.  1 )  GO  TO  115 

|  DE- '  ' 

C  CHECKING  EXP 'T  VALUE  TO  BE  IN  RANGE  OF  PLOT 

j  IF  (P(K,  IR+1).  LE.  0.  OR.  P(K,  IR+1).  LT.  SY)  DE=  '*  ' 

DP=* '  ' 

)  C  CHECKING  PRED  VALUES  TO  BE  IN  RANGE  OF  PLOT 

IF  (P(K,  IR+2).  LE.  0.  OR.  P(K.  IR+2).  LT.  SY)  DP-'*' 

!  WRITE  (6,11)  P(K,  1),P(K,  IR+1),  DE,P(K,  IR+2),  DP 

|  11  FORMAT  ( 10X,  F8.  2,  10X,  F10.  2,  1A1, 9X,  F10.  2,  1A1 ) 

115  IF  (P(K.  J+IR).  LE.  0.  0.  OR.  P(K.  J+IR).  LT.  SY)  GO  TO  12 

!  L=L+1 

j  XP(L)=P(K.  1) 

YP(L)*=P(K,  J+IR) 

12  CONTINUE 
XP(L+1)*SX 

i  XP  (L+2)=*IX 

i  YP (L+l )=SY 

YP(L+2)*IY 

CALL  PLOT  (0.  0,  0.  0,  +3) 

CALL  LINE  (XP,  YP,  L,  1,  +1,  PSYM(J) ) 

CALL  SYMBOL  (LX-SL,  LYS-O.  20,  0.  1 169,  LABEL(U),  0.  0, +8) 
CALL  WHERE  (E,  F,  G> 

CALL  SYMBOL  (E,  F+(0.  1 169/2.  0) ,  0.  1 169,  PSYM(J) ,  0.  0, -1 ) 
CALL  WHERE  (E, LYS, G) 

LYS«LYS-(0.  1169/2.  0) 

13  CONTINUE 
RETURN 
END 


o  o 
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SUBROUTINE  PLOTN( IR. PSYM) 

C - 

! PLOTN  IS  A  SUBROUTINE  FOR  PLOTTING  NORMALIZED 
'.TEMPERATURES  AND  BIOT  NUMBERS 
! BOTH  PREDICTED  AND  EXPERIMENTAL  VERSUS  TIME. 


PLOTN  VARIABLES  REQUIRED  AND  LOCALLY  DEFINED 

! IR  =  OFFSET  INTO  ARRAY  P  AT  WHICH  TO  PICK 

!  UP  BOTH  THE  PREDICTED  AND  EXPERIMENTAL  DATA. 

!  P<ROW«  IR+1 )  *  EXPERIMENTAL 

!  P ( ROW.  IR+2  >  =  PREDICTED 

!  PSYM  =  ARRAY  (  PSYM<2)  )  CONTAINING  THE  INTEGER 
!  NUMBERS  INDICATING  THE  SYMBOLS  TO  BE  USED  FOR 

THE  EXPERIMENTAL  AND  PREDICTED  CURVES 
!  RESPECTIVELY.  (SEE  DIGITAL  EQUIPMENT  CORP. 

!  MANUAL  PLXY-11M,  USER'S  GUIDE  FOR  DETAILS) 

!  BR  »  BODY  REGION  WHICH  THE  EXPERIMENTAL  AND 
!  PREDICTED  VALUE  CORRESPOND  TO. 

! RMD  =  DEPTH  IN  MSW  TO  THE  MIDDLE  OF  THE  REGION. 

!LYS  =  Y-AXIS  LEVEL  FOR  LABLES.  INITIALLY  SET 

!  AT  LY 

INREC  =  NUMBER  OF  TIME  RECORDS  TO  PLOT 

!  (IE:  1  TO  NREC ) 

!DE  =  BYTE  VARIABLE  CONTAINING  EITHER  '*' 

!  OR  '  '  (SPACE).  IT  IS  USED  TO  FLAG 

!  THE  EXPERIMENTAL  DATA  POINTS  NOT 

!  PLOTED  BECAUSE  THEY  ARE  EITHER  <=  0  OR 

!  <  SY.  SY  IS  THE  STARTING  VALUE 

!  FOR  THE  Y-AXIS. 

! DP  =  BYTE  VARIABLE  CONATAINING  EITHER  '*' 

!  OR  '  '  (SPACE).  THIS  VARIABLE  IS  USED 

!  IN  THE  SAME  MANNER  AS  VARIABLE  DE 

!  EXCEPT  THAT  DP  IS  USED  FOR  THE  PREDICTED 

!  VALUES. 

! BREG  *  ARRAY  CONTAINING  NAMES  OF  BODY  REGIONS 

!  ARRANGED  TO  CORRESPOND  TO  BR 

! LABEL  *  ARRAY  CONTAINING  LABEL  TEXT  FOR  THE  PLOTS 

!P  =  ARRAY  CONTAINING  THE  DATA  TO  BE  PLOTTED 


NOTE:  VARIABLES  E,  F,  G,  J.  K  AND  L  ARE  TEMPORARY 
VARIABLES  USED  FOR  DUMMY  ARGUMENTS. 

DO  LOOP  INDICES  AND  COUNTERS. 


NOTE:  THE  FOLLOWING  VARIABLE  ARE  DEFINED  IN 

A  MANNER  NECESSARY  TO  SATISFY  THE  DEC 
PLXY-11M  SUBROUTINE'S  SPECIFICATIONS 
IX  =  X-AXIS  INCREMENT  ■>  #  UNITS  PER  PLOT  UNIT 

IY  »  Y-AXIS  INCREMENT  »>  #  UNITS  PER  PLOT  UNIT 

LX  -  X-AXIS  LENGTH  IN  PLOT  UNITS 

LY  *  Y-AXIS  LENGTH  IN  PLOT  UNITS 

SX  ■  X-AXIS  STARTING  VALUE 

SY  -  Y-AXIS  STARTING  VALUE 

XP  -  ARRAY  USED  TO  PASS  X-AXIS  VALUES  TO 


PLXY-ilM  SUBROUTINE  LINE 

ARRAY  USED  TO  PASS  Y-AXIS  VALUES  TO 

PLXY-1 1M  SUBROUTINE  LINE 


REAL  LX,  SX,  IX,  LY,  SY,  IY,  LYS,  XP  ( 125 ) ,  YP  ( 125 ) 

REAL*8  LABEL (3),  BREG( 10) 

INTEGER  PSYM<2), BR,  ATT, COR 

BYTE  DE,  DP,  RDU,  REU,  PRT 

COMMON  /BODY/B  <9, 3> , COR <9, 2) , WGT< 12) 

1,  /PROB/BR,  ATT,  RD,  RDM,  TA,  NN,  TDMS,  DZ,  DZV,  FLAG3,  RDS 

2,  RDU 

3,  /PLOT/P  <  125,  9),  LX,  SX,  IX,  LY.  SY,  IY,  LYS,  LABEL.  NREC 

4,  BREG,  XP,  YP,  PD(  125,  3),  LCL,  CH,  REU,  PRT(  13) 

SL»3.  0 

IF  (CH.  GT.  0.  0)  SL=CH 

CALL  SYMBOL  (LX-SL, LYS-O.  20, 0.  1 169, BREG(BR > , 0.  0, +8) 
IF  ( IR. EQ. 1 )  GO  TO  10 

CALL  SYMBOL  (999.  ,  999.  ,  0.  1169,  PRT,  0.  0,  +LCL) 

CALL  PLOT  (0.0,  0.0, +3) 

LYS-LYS-O.  20 

IF  (ATT.  EQ.  2)  RMD*RDM 

IF  ( ATT.  EQ.  1 )  RMD“RDM+RDS+  ( B  ( BR ,  3 )  /2.  0 ) 

IF  (ATT.  NE.  0)  GO  TO  5 
RMD-RDM+RDS 

IF  (BR.  EQ.  4)  RMD**RMD+(B  (BR,  2)/2.  0) 

IF  (BR. NE.  4)  RMD=RMD+(B(BR,  3>/2.  0) 

DO  13  J=l, 2 
L=0 

DO  12  K*l» NREC 

CHECKING  EXP 'T  VALUE  TO  BE  IN  RANGE  OF  PLOT 

IF  (P  (K,  1  +  IR ) .  LE.  0.  0.  OR.  P  (K,  1  +  IR ) .  LT.  SY)  GO  TO  12 

L-L+l 

XP(L)«P(K,  1) 

PD(L, 1 )«XP(L) 

IF  ( IR.  NE.  1 )  GO  TO  11 

YP(L)«(P(K, U+IR)-P(K, 9) >/(P(K, 8)-P(K,  9) ) 

PD(L, U+l )=YP(L> 

GO  TO  12 

IF  ( IR.  NE.  5)  GO  TO  12 
TM-(P(K, J+1)+P(K,  9) >/2.  0 

YP(L)«(P(K,  J+IR )*(B (BR,  2) >/2.  0)/TC(TM,  RMD) 

PD (L, J+l >«YP(L) 

CONTINUE 
XP(L+1 )-SX 
XP (L+2 ) “I  X 
YP (L+l )»SY 
YP(L+2)«IY 

CALL  PLOT  (0.  0,  0.  0,  +3) 

CALL  LINE  (XP,  YP,  L,  1, +1, PSYM(J) > 

CALL  SYMBOL  (LX-SL,  LYS-O.  20,  0.  1 169,  LABEL (J) ,  0.  0, +8) 
CALL  WHERE  (E, F, G) 

CALL  SYMBOL  <E,  F+  ( 0.  1 169/2.  0 ),  0.  1 169,  PSYM(  J) ,  0.  0, -1 
CALL  WHERE  <E,  LYS,  G> 
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Function  TC(TDC.Z) 


This  function  determines  whether  the 
breathing  gas  is  air,  a  mixture  of  helium 
and  oxygen,  or  a  mixture  of  nitrogen  and 
oxygen.  If  the  breathing  gas  is  air,  its 
thermal  conductivity  is  determined  within 
this  function.  If  the  gas  is  either  of  the 
mixtures,  the  function  TCMG  is  called  to  ' 
determine  the  mixture  thermal  conductivity. 


Declare  passed  variables. 


Convert  TDC  °C  to  T  °F  and  convert  Z  MSW  to 
P  PSIA. 


Branch  to  the  appropriate  statement  for  a 
breathing  gas  of  air  (IG  =  'A'),  or  a 
mixture  which  contains  nitrogen  (IG  =  ' N' ) 
or  helium  (IG  =  ' H ' ). 


IF  IG  *  'A'  GO  TO  A 


Compute  the  thermal  conductivity  of  air  (TC) 
at  a  temperature  of  T  °F  and  a  pressure  of 
P  PSIA  from  a  table  of  data  extracted  from 
the  U.S.  Navy  Diving  Gas  Manual  [2]»  A 
method  of  two-dimensional  linear 
interpolation  described  by  Carnahan,  Luther, 
and  Wilkes,  Applied  Numerical  Methods, 
p.  63  [3]  is  used.  The  table  of  air  data 
covers  a  temperature  range  of  -1.11  to 
54.44  °C  and  a  pressure  range  of  14.7  to 
200.0  PSIA  (1.0  to  13.6  ATA). 


RETURN 
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A  Calculate  the  mixed  gas  thermal  conductivity 
(See  Functions  TCMG  and  INTERP.)  by: 

TC  =  TCMG(T.P) 

RETURN 


I 
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Function  TCMG(T.P) 


Declare  passed  (in  common)  variables  YG  as 
real  and  IG  as  byte. 


Determine  the  mole  fraction  for  oxygen  (YO) 
by: 


YO  =  1.00  -  YG 

YG  =  Inert  gas  (helium  or  nitrogen)  mole 
fraction. 


Determine  the  thermal  conductivity  and 
absolute  viscosity  of  the  pure  components 
(helium  and  oxygen,  or  nitrogen  and  oxygen) 
by  calling  real  function  subroutine  INTERP. 
Store  these  values  in  Array  TP. 


TP(1,1)  =  Inert  gas  thermal  conductivity 
(BTU/FT»SEC°F) 

TP(1,2)  =  Inert  gas  absolute  viscosity 
(IBM/FT* SEC) 

TP(2,1)  =  Oxygen  thermal  conductivity 
(BTU/FT*  SEC°F) 

TP(2,2)  =  Oxygen  absolute  viscosity 
(IBM/FT*  SEC) 


Determine  the  thermal  conductivity  of  the 
breathing  gas  mixture  (TCMG)  by  the 
Mason-Saxena  form  or  Wassiljewa's  equation 
as  a  function  of  temperature  (T),  pressure 
(P),  thermo-physical  property  array  (TP), 
molecular  weight  of  the  components  (Array 
MW),  and  the  mole  fractions  (YG  and  YO). 
The  units  of  TCMG  are  BTU/FT.SEC.°F. 


Convert  the  units  of  TCMG  to  W/M°C. 


RETURN 
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Real  Function  INTERP(T,P,FL1,FL2) 


This  function  determines  the  thermal 
conductivity  (FL2=1)  or  the  absolute 
viscosity  (FL2=2)  of  the  pure  gases  nitrogen 
(FL1=1),  helium  (FL1=2),  and  oxygen  (FL1=3) 
at  a  temperature  of  T  °F  and  pressure  of 
P  PSIA.  The  thermal  conductivity 
(8TU/FT*SEC°F)  and  absolute  viscosity 
(LBM/FT«SEC)  are  determined  from  tables  of 
data  excerpted  from  the  U.S.  Navy  Diving  Gas 
Manual  [2].  A  method  of  two-dimensional 
1  inear  interpolation  described  by  Carnahan, 
Luther,  and  Wilkes,  Applied  Numerical 
Methods ,  p.  63  [3]  is  used.  The  tabulated 
data  spans  a  temperature  range  of 
30  °F  (-1.11  °C)  to  130  °F  (54.44  °C)  and  a 
pressure  range  of  14.7  to  1000.0  PSIA 
(1.0  to  68.0  ATA). 


Copy  the  appropriate  pure  component  absolute 
viscosity  (FL2*2)  or  thermal  conductivity 
(FL2=1)  data  array  into  the  working 
array  DA. 


Interpolate  as  described  above  for  the  value 
(INTERP)  from  the  data  of  Array  DA  at  a 
temperature  of  T  °F  and  a  pressure  of  P  PSIA 
in  English  Engineering  units. 


RETURN 


OVERLAY  DESCRIPTION 


I 


As  a  result  of  adding  the  two  additional  subroutines  for  predicting  the 
!  thermal  conductivity  of  a  mixed  gas  (TCMG  and  INTERP),  the  overall  length  of 
our  predictive  program  has  exceeded  the  maximum  allowable  program  length  of 
32,000  words  (two  bytes  per  word)  that  is  allowed  by  the  RSX-11M  operating 

system  [7],  Therefore,  to  have  the  mixed  gas  program  (MGMOD)  task  build 

i 

j  successfully  with  the  RSX-11M  task  builder  program  (TKB),  an  overlay 
i  structure  [7]  had  to  be  defined. 

An  overlay  structure  defines  which  program  modules  (subroutines, 

i 

functions,  or  main)  are  logically  independent  and,  thus,  may  occupy  the  same 
memory  space  when  the  overlayed  task  is  executed.  The  overlay  description 
language  (ODL)  requires  that  each  program  module  exist  in  an  independent 
object  file;  thus,  to  facilitate  the  development  of  the  overlay  description, 
the  mixed  gas  program  (MGMOD)  was  divided  into  twelve  independent  modules. 
The  modules  are  named: 


MHLMOD 

TCMG 

REINIT 

INTERP 

OHTC 

TR 

FUNCTF 

PRED 

CHTC 

PLOTD 

TC 

PLOTN 

(434) 
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Each  source  code  file  ends  with  the  FTN  extension  and  each  object  file,  which 
is  the  output  from  the  F4P  task  [8],  ends  in  the  OBJ  extension. 

'  To  create  the  o verlayed  executable  task  (MGMOD)  the  overlay  structure 

j 

'  that  is  desired  must  be  described  by  using  the  Overlay  Description  Language 
!  (ODL)  [7].  This  overlay  description  must  define  all  of  the  files  that  are 
needed  to  task  build  the  program;  the  name  of  this  overlay  description  file  is 
expected  to  end  with  an  extension  of  ODL.  Table  1  displays  the  command 
j  sequence  necessary  to  invoke  the  task  builder  program  (TKB)  when  an  overlay 
|  description  file  is  used. 

Table  1 

Task  Builder  Program  (TKB)  Command  File 

I 

I 

MCR>TKB 

j  TKB>MGM0D . TSK , = MGMOD . ODL/MP 

ENTER  OPTIONS: 

|  TK&>MAXBUF=292 

I  TKB>ACTFIL=5 

TKB>// 

The  /MP  switch  (Table  1)  is  applied  to  the  input  file  to  denote  it  as  an 
j  overlay  description  file.  This  switch  also  causes  the  TKB  program  to  proceed 
to  ENTER  OPTIONS:  without  the  need  of  the  single  slashed  (/)  line  (See 
reference  7  for  details.).  The  MAXBUF=292  option  is  to  allow  the  executable 
task  to  read  or  write  data  files  which  have  input  or  output  record  lengths 
of  up  to  292  bytes.  This  length  was  chosen  to  correspond  with  the  length  of 
our  experimental  data  records.  The  ACTFIL*5  option  allows  five  files  to  be 
open  simultaneously.  This  Is  necessary  when  creating  plots  to  compare 
experimental  and  predicted  data. 

The  overlay  description  file  (MGMOD. ODL)  describes  the  manner  in  which  to 
organize  the  various  modules  In  the  executable  task.  As  Indicated  earlier, 
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for  the  modules  to  be  overlayed,  they  must  be  logically  independent;  for  the 
modules  to  be  logically  independent,  they  must  not  access  one  another  in  any 
way,  neither  directly  nor  indirectly.  Thus,  the  overlay  file  describes  which 
modules  may  overlay  one  another  during  execution  because  of  their  complete 
independence.  The  contents  of  MGMOD.ODL  are  in  Table  2. 

Table  2 

Overlay  Description  File 

.ROOT  MHLM0D-PSUB-MAIN-SPC-*(0HTCC,P10TC,TRC) 

PSUB:  .FCTR  [1,1]PLTUSL/LB 

MAIN:  .FCTR  [1,1]SYSLIB/LB:$SH0RT 

SPC:  .FCTR  TC-TCMG-INTERP-REINIT 

OHTCC:  .FCTR  OHTC-CHTC-FUNCTF 

.NAME  NULL 

PLOTC:  .FCTR  NULL-(PLCrD-PSUB.PLOTN-PSUB) 

TRC:  .FCTR  TR-PRED 

.END 

The  various  commands  (.ROOT,  .FCTR,  .NAME,  and  .END)  in  the  overlay 
description  file  (Table  2)  are  described  in  the  RSX-11M  Task  Builder  Reference 
Manual  [7]  in  the  section  entitled  "Overlay  Description  Language  (ODL).'" 

By  using  the  TKB  commands  described  in  Table  1  with  the  overlay 
description  file  of  Table  2,  the  twelve  cited  modules  may  be  linked  into  an 
executable  task  (MGMOD.TSK)  which  does  not  exceed  the  RSX-11M  operating 
system's  restriction  of  a  maximum  task  size  of  32,000  words.  The  overlay 
described  above  was  developed  solely  for  the  DEC  RSX-11M  operating  system; 
application  to  another  computer  system  will  require  modification  of  the 
overlay  structure.  It  may  be  possible  to  eliminate  the  overlay 
structure  If  a  computer's  operating  system  allows  all  of  the  modules  to  be 
built  into  a  single  sequential  program. 


1 

I 
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